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IMPORTANT INFO 

For clarity, some program lines show more than 80 characters (including spaces). If 
you enter more than 80 characters in a program line, you will get a SYNTAX ERROR. 
Avoid this problem by not typing in excess spaces or by removing excess spaces if the 
program line fills more than two screen lines. Each screen line is 40 characters long. 

The table on page 7 and 1 17 is missing a listing. It affects the backward scrolling in 
Shoot The Rapids (220), Space Maneuvers (170) and Le Mans (210). When you see 
[INST], press these keys simultaneously: SHIFT-INST/DEL. 
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ARCADE GAMES 

Shoot The Rapids 8 

Stay on course in your kayak while tra veling down a dangerous set of rapids. 

Night Sky 10 

Invaders from outer space, corning fast and straight at you! Stop them before they crash into you. 

Space Maneuvers 13 

Fly your spacecraft through crowded space traffic. Avoid collisions to score. 

Missile Defense 15 

Defend your cities against missile attack by Intercepting oncoming missiles. 

Wallbangers 18 

Trap your opponent (the computer) by building walls on thescreen that limit the computer's cursor motion. 

Rear Gunner . 20 

You're defending the rear of a space fighter. Be careful not to shoot other members of your squadron. 

Le Mans 22 

Drive your race car through a twisting track. Avoid other cars, oil spills and track hazards. 

Moon Lander 25 

Land your spaceship on the moon's surface by controlling thrust, speed and other factors. 

Gambler 28 

Play the odds with the computer's one-armed bandit. 

Orion 31 

You are at the controls of a starship simulator, practicing defense of your homeland against imperial drones. 

Berserkotron 34 

You've gone to interview for a Job as a computer-game tester but entered the Robot Room where visitors are not 
allowed. Run away If you can. 

BOARD GAMES 

Shell Game 37 

Computer version of the classic sleight-of-hand game. 

Pirates 40 

Find and battle the scourge of the sea. You're the captain looking for adventure, glory and stolen gold. 

Master Code 44 

Computer selects a code. You crack It 

A Day At The Races 46 

Bet on a dog race. Watch the race and find out if you're the winner. 

Lost Dutchman Mine 50 

You're looking for the mine's treasure. Find clues while escaping from ghosts. 



Biorhythm 54 

Computer calculates and predicts your emotional, mental and physical levels for any date. 

Queen Of The Nile 57 

Search for Cleopatra 's lost treasure, but be careful of snake pits and mummies. 

Thin Ice 60 

Go ice fishing late in the season, but watch out for what lurks under the ice. 

Bomb Squad 62 

Locate and diffuse a bomb hidden in a huge skyscraper. 

Utopia 66 

You're an island ruler beset with decisions. Will they help or hinder your reign ? 

Tic-Tac-Toe • 71 

For two players. 

Dice Racers 74 

Use computer dice to race your cars across the finish line. 

Alien 77 

Your chance to visit Earth. Will you corneas friend or foe ? 

EDUCATIONAL GAMES 

Hangman 85 

Home-computer version of the popular word game. 

Dr. Sigmund 87 

Visit the famous analyst for Ink-blot testing. Get professional advice. 

Spatial Concepts 91 

A castle where objects can be placed in a variety of positions. For young children. 

Mind Reader 95 

Can you guess the number the computer has in mind? Can the computer guess the one you have in mind? 

Poetry 99 

Wouldn't you know it? Your computer is a poet! 

No Free Lunch 101 

Cross a hazardous tide pool to reach your lunch by giving correct math answers. 

Spelling Bee 1 04 

Watch the bumble bee spell out a scrambled word. Give the correct spelling to win. 

Speed Reading 1 06 

Learn computerized reading skills for rapid information intake. Gain speed as your skill level improves. 

Pre-School Counter 110 

Computer displays 1 to 10 symbols and asks "How many?" Child receives a happy or sad face for correct or 
Incorrect answers. 

Keyboard Shooting Gallery 112 

Try your hand at the computer shooting gallery. Learn the keyboard at the same time. 

Translator 114 

Computer has foreign words and English equivalents for user's study of foreign language. 
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Introduction 

This book stresses one thing—computers are fun! Even though you may use your computer for 
serious applications, you should not ignore its ability to give you hours of challenging 
entertainment. Computer games add that dimension to home-computing. 

ABOUT THE 35 GAMES IN THIS BOOK 

Some game books give you short programs and tell you to add scoring, graphics and other 
interesting things. This book is different. It consists of 35 complete games. They have color, 
graphics, sound, instructions to players, and scoring. 

In addition to the program listing, each game has suggestions for possible programming 
variations. First enter the complete, working game. Try it as is. Then change it if you want to. 

This book doesn't explain the rudiments of BASIC programming because I assume that you 
already have reference books to do that. What the book does supply is a variety of fun game 
programs that work. 

I've divided the games into three categories: Arcade, Board and Educational. The first category 
has moving graphics, like video games that cost money to play. The second includes puzzle and 
logic games you might play on a board, such as Tic-Tac-Toe. The third category, educational games, 
includes word and number fun for children and older computer users. 
How To Use— Each game begins with a description of game rules, number of players, display, 
objective, scoring and keys to press. Don't skip this section. Read it carefully. 

Then enter the program listing into your computer exactly as shown. The listing is a 
reproduction of actual printout of a tested, debugged, working program. When you make typing 
mistakes— and you will— the game may not work as intended. Or, it may not work at all. You'll 
have to find your mistakes and fix them. 

Play the game for a while. If you like it, save it on disk or tape. Otherwise, you'll have to enter 
the game each time you want to play it. 

How To Change It— After you've become familiar with a game, consider changing or improving it. 
Use the comments to the side of the computer printout as suggestions on how you can simplify the 
game, make it more complicated, speed it up, slow it down or supply different data. Only some of 
the possibilities are shown. Have fun experimenting! 

Although this isn't a book about programming, changing the games will help you learn more 
about BASIC programming. If you want to learn still more, get How to Program Your Commodore 
64, BASIC for Beginners by Carl Shipman, also published by HPBooks. BASIC is a good 
programming language because it's easy to understand. Commands are in plain English, and rules 
are straightforward and uncomplicated. 

Even if you don't know BASIC, you'll have good times with these games. If you already know 
some BASIC, all the better. This book can be a springboard to your own creative programming. 

WHAT YOU NEED TO USE THIS BOOK 

The games in this book are written specifically for the Commodore 64 computer. None of these 
games requires a lot of memory. Plenty of memory is left over for you to add your own features to 
any program in this book. 

Other Items— You also need a b&w or color monitor. I recommend that you use a disk drive or 
cassette tape recorder to save the games. That way, you don't have to type them in each time you 
want to use them. 

Some arcade games should be played with a joystick. It's an inexpensive accessory that makes 
these games more enjoyable. 
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What Else? —I assume that you know how to use your computer hardware and that you're familiar 
with your computer keyboard. I also assume that you're eager to have fun with your computer and 
to learn something about BASIC as painlessly as possible. 

If you think that typing an amazing game into your computer isn't painless enough, there's an 
easier way. Simply send a check or money order for $30 and your name and address to the address 
below. You'll receive a floppy disk of all 35 games in this book. 



MIKOWARE 
PO BOX 43911 
Tucson, AZ 85733 
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For more information about programming your Commo- 
dore 64 computer in BASIC, get this book. 
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UNDERSTANDING PROGRAM PRINTOUTS 

The program lines in this book are actual computer printouts of the working games. To 
make the lines easier for you to copy, a special notation system is used for graphics 
characters, color and cursor keys. 

An underlined, upper-case letter means that you should hold down the SHIFT key 
while entering that letter. For example, if you see Z, shift while entering Z. A diamond will 
appear on the screen. An underlined, lower-case letter indicates that you should hold 
down the Commodore key (o) while entering that letter. 

Some keys (+, -, £, @, *) will be underlined twice if the Commodore key (c=) is to be 
held down; underlined once if the SHIFT key is to be held down. 

When you see a word in brackets, it indicates using special control keys. For example, 
[DOWN] means press the cursor-up/down key. [DOWN 7] means press the cursor- 
up/down key seven times. The only exception is with spaces. A single space looks that 
way in the program line. If two or more spaces are required, an expression will be in 
brackets, such as [SPACE 2]. 

The table on the next page lists some more key combinations. For example, if the pro- 
gram shows [WHT] press the CTRL and WHT keys at the same time. 
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KEY-COMBINATION TABLE 


Listing 


Press Key(s) 


[UP] 


SHIFT-CURSOR UP/DOWN 


[DOWN] 


CURSOR UP/DOWN 


[LEFT] 


SHIFT-CURSOR 




LEFT/RIGHT 


[RIGHT] 


CURSOR LEFT/RIGHT 


[HOME] 


CLR HOME 


[CLR] 


SHIFT-CLR HOME 


[RVSON] 


CTRL-RVS ON 


[RVSOFF] 


CTRL-RVS OFF 


[BLK] 


CTRL-BLK 


[WHT] 


CTRL-WHT 


[RED] 


CTRL-RED 


[CYN] 


CTRL-CYN 


[PUR] 


CTRL-PUR 


[GRN] 


CTRL-GRN 


[BLU] 


CTRL-BLU 


[YEL] 


CTRL-YEL 


[ORN] 


CM 


[BRN] 


C=2 


[LT. RED] 


C=3 


[DARK GRAY] 


C=4 


[MED. GRAY] 


C=5 


[LT. GRN] 


C*6 


[LT. BLU] 


C=7 


[LT. GRAY] 


C=8 


[F-1] 


f1 


[F-2] 


f2 


[F-3] 


f3 


[F-4] 


f4 


[F-5] 


f5 


[F-6] 


f6 


[F-7] 


f7 


[F-8] 


f8 


[POUND] 


£ 



A duplicate of this table is in the back of this book, page 
1 1 7. Cut it out and glue it to a piece of stiff cardboard. Use 
it for a ready reference when entering program lines. 
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Shoot The Rapids 



Journey down a winding river in your kayak. The farther you go, the more treacherous the river. 
This fast-paced game requires concentration and skill. Use a joystick or < and > keys to paddle 
safely between river banks. 

If you crash, your score is displayed along with commentary. Press any key to play again or 
RUN/STOP to quit. 



Alteration— To make the river wind more, 
increase the value of variable A in line 120 
(maximum value is 0.5) and decrease variable 
B (minimum is 0.5). 



Programming Note— Line 220 is a special trick 
that makes the screen display scroll backward. 



POKE 53281,13 
PRINT TAB( R)R* 



(R*) THEN 



INT ( 



100 REM SHOOT THE RAPIDS 

110 HS=Os GOTO 420 

120 R*="CBLU3r.RVSON3 [SPACE 73":R=18 

: D=0: S=1024: C0=55296: L=1924: A=. 4 

:B=.7 
130 PRINT "CCLR3": 
140 FOR X=l TO 23: 

: NEXT 
150 50=54272: FOR Z=SO TO SO+24 

: POKE Z,0: NEXT Z: POKE SO+5,31 

: POKE SO+6,31: POKE SO+24, 15 
160 POKE SO+1,65: POKE SO, 227 

: POKE S0+4,129:K= RND (4) 

: IF R<8 THEN K=K+. 1 
170 IF K<A AND R>1 THEN R=R-1 
180 IF R>30 THEN K=K-. 1 
190 IF K>B AND R<38- LEN 

R=R+1 
200 PRINT " C HOME 3 C DOWN 3" TAB( 

RND (8)»39)) ,, CGRN3*" 
210 PRINT "[HOME3CDOWN3" TAB( R)R$ 
220 PRINT " C HOME 3 C DOWN 3 C LEFT 3 £ INST 3" 

: POKE 218,156 
230 POKE L+40,160 
240 JY= PEEK (56320) :JY= 15- (JY AND 15) 

: IF JY=0 THEN JY= PEEK (56321) 

:JY=15-(JY AND 15) 
250 IF PEEK (197) =47 OR (JY<7 AND 

JY>3) THEN L=L-l 
260 IF PEEK (197) =44 OR (JY>7 AND 

JY<11) THEN L=L+1 
270 IF PEEK (DO160 THEN 320 
280 POKE L,193:D=D+.5: IF D>HS THEN 

HS=D 
290 PRINT "CHOME3CBLK3SCORE 

:" STR* ( INT (D))+" HIGH 

:*' STR* ( INT (HS))+ H " 
300 IF D/50= INT (D/50) AND D<201 

THEN R*= LEFT* (R*, LEN (R*)-l) 
310 POKE SO+4,128: GOTO 160 
320 POKE L,90: FOR T=l TO 2000 

: NEXT T 
330 PRINT "CHOME3CBLK3SCORE 

:" STR* ( INT (D))+" " 
340 IF D>HS THEN HS=D 



8 



Shoot The Rapids 



Alteration— Change the commentary in lines 
350 to 380. 



350 

360 

370 

380 

390 

400 
410 
420 

430 
440 
450 



460 
470 
480 



IF D<»50 THEN PRINT "YOUR PADDLE 

MUST HAVE BROKEN" 
IF D<«200 AND D>50 THEN PRINT 
"SNAGBED A TREE LIMB" 
IF D<=300 AND D>200 THEN PRINT 
"YOU MUST BE PART OTTER" 
IF D>300 THEN PRINT "I SEE YOU 

HAVE DONECSPACE 33THIS BEFORE" 
PRINT : PRINT "HIT ANY KEY TO 

RESTART": POKE 198,0 
GET Q*: IF Q*="" THEN 400 
GOTO 120 
PRINT "CCLRD": PRINT "SHOOT 

THE RAPIDS!!!": PRINT 
PRINT : PRINT "YOU ARE ABOUT 

TO SHOOT THE RAPIDS INCSPACE 43 
YOUR KAYAK. " 

PRINT : PRINT "CONTROL YOUR 
PADDLES WITH YOUR JOYSTICKCSPACE 21 
OR THE < > KEYS." 
PRINT : PRINT "KEEP BETWEEN 

THE RIVER BANKS.": PRINT 
: PRINT "HIT ANY KEY TO START." 
POKE 198,0 

GET Q*: IF Q*="" THEN 470 
GOTO 120 
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Night Sky 



It's time to defend against invaders from space. They're coming straight at you, and getting 
bigger! Distance is determined by the size of the incoming invader. If you don't stop an invader, it 
crashes into you. 

You move your aim sight by using a joystick. The cursor keys will work too. Fire by pressing the 
joystick's fire button or the keyboard's space bar. 



Alteration— Change the starting range by 
altering SR=2000 in line 140. 



Alteration— Change the range at which the 
invader becomes larger by changing 
RA< 1 500 in line 170 and RA< 1 000 in line 
180. 



100 REM NIGHT SKY 

110 DIM D<15): GOSUB 510 

120 PRINT "CCLRl" 

130 FOR X=55296 TO 56296: POKE X,l 

: NEXT X 
140 S=0:SR=2000 
150 RA«SR:R»1 
155 FOR X=55296 TO 56295s POKE X,l: 

NEXT X 
160 EL»1144+ INT < RND <8)#800> 

:AL»1524:AC«43 
170 FOR X=0 TO 4: POKE EL+X,32s NEXT 

:RA*RA-10: IF RA<1500 THEN R=2 
180 IF RA<1000 THEN R=3 
190 D= INT ( RND <8>*16> :K=EL+D(D> 

s IF KM 144 AND K<1944 THEN EL=K 
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200 IF RA<10 THEN 390 

210 POKE AL,32: FOR X*0 TO 4 

; POKE EL+X,EC(R,X): NEXT X 
220 K» PEEK (197) :J= PEEK <653) 
230 PRINT "CHOME3IWHITE3CSPACE 43 
SCORE-" STR# <S)+"CSPACE 113 

RANGE*" STR* (RA)+"CSPACE 23" 
240 JY= PEEK (56321) :FI*JY AND 16 

:JY«15-(JY AND 15) 
250 POKE AL, 32: IF AL>1104 AND (JY=1 

OR JY*5 OR JY=9 OR (K=7 AND J»l)) 

THEN AL=AL-40 
260 IF AL<1945 AND (JY=2 OR JY«6 OR 

JY=10 OR (K»7 AND J=0) > THEN 

AL=AL+40 
270 IF ALM104 AND ( ( JY>3 AND JY<7) 

OR (K*2 AND J»l)) THEN AL*AL-1 
280 IF AL<1945 AND (JY>7 OR (K»2 AND 

J=0)) THEN AL=AL+1 
290 IF FI>0 THEN 320 
300 POKE S0+5,l: POKE SO+6,9 

s POKE SO+24,15 
310 POKE S0+l,5: POKE SO, 235 

: POKE SO+4,129: POKE SO+4,128 
320 IF PEEK (AL)<>32 AND (FI*0 OR 

K«60) THEN 340 
330 POKE AL,ACs GOTO 170 
340 POKE N,7:S=S+RAs IF SR>200 THEN 

SR*SR-100 
350 FOR LQ-SO TO SO+24: POKE L0,0 

: NEXT 
360 POKE S0+5,l: POKE SO+6,15 

: POKE SO+24,15 
370 POKE S0+l,5: POKE SO, 235 

: POKE SO+4,129: POKE SO+4,128 
380 FOR T»l TO 3000: NEXT T: POKE N,0 

: PRINT "CCLR3": GOTO 150 
390 POKE N-1,2: POKE N,7 

: PRINT "CCLR3CWHITE3CDOWN 103 

C SPACE 133***CRASH***" 
400 FOR LO=SO TO SO+24: POKE LQ,0 

: NEXT 
410 POKE SO+5,15: POKE SO+6,15 

: POKE SO+24,15 
420 POKE 50+1,1: POKE SO, 235 

: POKE SO+4,129: POKE SO+4,128 
430 FOR X»l TO 99: IF ( PEEK (N) AND 

15) -7 THEN POKE N,2: GOTO 450 
440 POKE N,7 

450 FOR T»l TO 44: NEXT T,X 
460 FOR T»l TO 2000: NEXT : POKE 198,0 
470 POKE N,0: POKE N-1,6 
480 PRINT : INPUT "PLAY AGAIN" ;Q* 

MORE- 
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490 IF LEFT* <Q*,1)«"Y" THEN 120 

500 END 

510 80=54272: N=532B1: POKE N,0 

: PRINT "CCLRUWHITE3" 
520 PRINT "YOU ARE ABOUT TO PROTECT 

THE NIGHT SKY " 
530 PRINT "INTERCEPT THE ENEMY AS 

IT APPROACHES." 
540 PRINT : PRINT "MOVE YOUR AIM 

SIGHT WITH A JOYSTICK" 
550 PRINT "OR THE CURSOR CONTROL 

KEYS " 
560 PRINT* "PRESS THE FIRE BUTTON 

OR SPACE BAR TQCSPACE 33FIRE." 
: PRINT 
570 PRINT "THE GAME ENDS WHEN THE 

ENEMY CRASHESCSPACE 43 INTO YOU." 
s PRINT 
580 PRINT "GOOD LUCK." 
590 FOR X»0 TO 7: READ D(X): NEXT X 
600 FOR X*l TO 3: FOR Y»0 TO 4 

: READ EC<X,Y>: NEXT Y,X 
610 PRINT : PRINT "HIT ANY KEY TO 

START. " 
620 GET Q$: IF Q$*"» THEN 620 
630 RETURN 

640 DATA -41,-40,-39,-1,1,39,40,41 
650 DATA 32,109,125,32,32,32,109,42, 
125,32, 124,67,81 ,67, 126 
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Space Maneuvers 



You're the pilot of a spaceship on a secret mission, traveling through crowded space traffic. To 
score, avoid collisions with asteroids, mercenary drones and dangerous enemy spacecraft The 
deeper you penetrate space, the more difficult your task! Use your joystick or < and > keys to 
maneuver left and right. Saving the galaxy requires 1000 points. 



100 REM SPACE MANEUVERS 
110 SOTO 350 

120 DL=. l:P=0:S*1024:L=S+900 
130 PRINT "CCLRKWHITEV 

: POKE 53280,6: POKE 53281,0 
140 PRINT "CHOME3CDOWN3" TAB( INT ( 

RND <7>*36>>"WCSPACE 33WCSPACE 33 

W" 
150 IF P>100 AND RND (3)>.8 THEN 

PRINT "CHOMEDCDOWNa" TAB( INT ( 

RND <7)»39))"ifcr. POUND!" 



Alteration— Increase the number of drones by 
changing RND(3)> .8 to RND(3)> .4 in line 
150. 



MORE 



J • 
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Space Maneuvers 



Alteration— Increase the number of enemy 
spacecraft by changing RND(4)> .9 to 
RND(4)>.6inlinel60. 

Alteration— Change symbols for drones and 
enemy spacecraft in lines 150 and 160, 
respectively. 



Alteration— If the galaxy is saved, add 
triumphant music in lines 300 to 309. 



160 IF P>400 AND RND (4)>.9 THEN 

PRINT " C HOME 3 C DOWN 3" TAB( INT ( 

RND <7)*38))" »ZCFQUND3 " 
170 PRINT "CHOMEKDOWNKLEFTKINST:" 

: POKE 218,156 
180 P=»P+1: IF P>999 THEN 300 
190 PRINT "C HOME 3 SCORE 

:" STR* < INT <P))+" " 
200 JY= PEEK <56320):JY=15-(JY AND 15) 

: IF JY=0 THEN JY= PEEK (56321) 

:JY=15-<JY AND 15) 
210 POKE L+40,32: IF PEEK <197)*47 

OR (JY<7 AND JY>3) THEN L=L-1 
220 IF L<1983 AND ( PEEK (197) =44 OR 

<JY>7 AND JY<11)) THEN L«L+1 
230 IF PEEK <L)<>32 THEN 250 
240 POKE L,65: POKE L+54272,1: 

BOTO 140 
250 E=54272: FOR X=E TO E+24 

: POKE X,0: NEXT X: POKE E+5,15 

s POKE E+6,15: POKE E+24, 15 
260 POKE 53280,2: POKE E+1,5 

: POKE E,235: POKE E+4,129 

: FOR V=l TO 250 
270 IF F=0 THEN PRINT "ECLR3CD0WN 73 

[SPACE 113***** CRASH *****" 

s POKE 53281,7:F=1: BOTO 290 
280 PRINT "CCLR3": POKE 53281, 2 :F=0 
290 NEXT V: POKE 53280,6 

: POKE 53281,0: POKE S+4,128 

: SOTO 310 
300 PRINT "CCLR3CD0WN 103 THE SALAXY 

IS SAVED!" 
310 PRINT "CCLR3": PRINT "CSPACE 83 

HIT ANY KEY TO RESTART" 
320 PRINT : PRINT "CSPACE 133SC0RE 

- "P: POKE 198,0 
330 GET Q#: IF Q*='"» THEN 330 
340 GOTO 120 
350 PRINT "CCLR3"! PRINT "PREPARE 

FOR A JOURNEY THROUGH SPACE." 
360 PRINT "AVOID ASTEROIDS, DRONES, 
AND SPACESHIPS. USE JOYSTICK 
OR < > "; 
370 PRINT "KEYS TO MOVE LEFT 

ORRIGHT. ": PRINT 
380 PRINT : PRINT "HIT ANY KEY TO 

RESTART": POKE 198,0 
390 SET Q*: IF Q*=»" THEN 390 
400 SOTO 120 
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Missile Defense 

You must save your cities by intercepting oncoming enemy missiles. Use your joystick to move 
your laser sight (+). The cursor keys will work too. Fire by hitting the joystick's fire button or the 
keyboard's space bar. Each shot costs you 1 point. Each hit gets you 100 points. Destroying a missile 
does not require a direct hit. A close shot may work. 



100 REM MISSILE DEFENSE 

110 SOSUB 520; B* <3) «" CYELJ vf f b " 
: B* <2> -" CDOWN1 CRED3 CRVSON3b 
CRVSQFF3cdCYEL3v" 
:B$(l)«"r.DQWN 23CRED3bcf " 
!B#<0)» M tDOWN 33 CRVSOMv" 

120 AS-'T-HOMEKDOWN 193" 

130 FOR X»0 TO 8: READ EL<X) ,EC<X> 
: NEXT 

140 FOR X=0 TO 6: READ CL(X) ,CH(X) 
: NEXT X 

150 D=0:CT»4:P*80 

160 PRINT "CCLR3" 

170 POKE 53280,6 



Alteration— Increase the number of cities to 
five by changing the value of CT to 5 in line 
150. 

Alteration— Increase the points for destroying 
a missile to 150 by changing D in line 410 to 
D=D+150. 



POKE 53281,14 
FOR X-55296 TO 56175: POKE X,0 
NEXT 

MORE 
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ISO FOR X=56176 TO 56295: POKE X,5 

s NEXT : FOR X= 1904 TO 2023 

: POKE X,160: NEXT 
190 CL=1864 
200 C=CL+ INT < RND <8>*30> 

: IF P>0 THEN P=P-10 
210 FOR X=0 TO 6: POKE C+CL(X) ,CH(X> 

s NEXT X 
220 ML-C-8 18: MC=8 1 : MD=39 

: IF RND <8)>.S THEN MD*41:ML=ML-1 
230 AL*C-70-60* RND (8)*7:AC=43 
240 MI»ML:P«P-1 
250 K* PEEK (197) :J= PEEK (653) 

: FOR T«0 TO P: NEXT T 
260 PRINT "CH0ME1CWHITE3CSPACE 41 

SCORE«" STR* (D)+"CSPACE 113 

CITIES*" STR* (CT)+"CSPACE 23" 
270 JY« PEEK (56321 ):FI*JY AND 16 

:JY=15-(JY AND 15) 
280 POKE AL,32: IF ALM104 AND (JY«1 

OR JY=5 OR JY=9 OR (K=7 AND J=l)) 

THEN AL=AL~80 
290 IF AL<1745 AND (JY=2 OR JY=6 OR 

JY=10 OR (K»7 AND J=0) ) THEN 

AL=AL+80 
300 IF ALM104 AND ( ( JY>3 AND JY<7) 

OR (K*2 AND J*D) THEN AL=AL-2 
310 IF AL<1825 AND (JY>7 OR (K=2 AND 

J=0)) THEN AL=AL+2 
320 POKE ML,32:ML=ML+MD 

: IF PEEK (ML)<>32 AND PEEK 

(ML)OAC THEN 440 
330 POKE ML,MC: POKE AL,AC 

: IF K=60 OR K=15 OR FI<>16 THEN 

350 
340 GOTO 250 
350 FOR E=0 TO 8s POKE AL+EL(E) ,32 

: NEXT E: IF D>0 THEN D=D-1 
360 IF PEEK (ML)<>32 THEN 250 
370 FOR E*0 TO 8: POKE ML+EL(E) ,EC(E) 

: POKE ML+EL(E) +54272,7: NEXT 
380 S=54272: FOR L=S TO S+24 

: POKE L,0: NEXT : POKE S+5,15 

: POKE S+6,15: POKE S+24, 15 
390 POKE S+1,5: POKE S,235 

: POKE S+4,129: POKE S+4,128 

: FOR T*0 TO 999s NEXT T 
400 FOR E=0 TO 8: POKE ML+EL(E) ,32 

: POKE ML+EL(E) +54272,0: NEXT 
410 D=D+100 
420 FOR X«0 TO 6: POKE C+CL(X),32 

: NEXT X:V=0 
430 GOTO 200 



Missile Defense 



440 
450 

460 



470 
480 



490 
500 

510 

520 

530 

540 

550 

560 
570 



FOR X=0 TO 3s PRINT A*; TAB< 

C-CL)B*(X>: NEXT 

S=54272: FOR L*S TO S+24 

: POKE L,0: NEXT : POKE S+5,15 

: POKE S+6,15: POKE S+24, 15 

POKE S+1,5: POKE S,235 

s POKE S+4,129: POKE S+4,128 

: FOR T=0 TO 2000: NEXT T 

CT=CT-1: IF CT>0 THEN 160 

PRINT "CCLR3CWHITE3CDOWN 73 

CSPACE 83**ALL CITIES 

DESTROYED**"! PRINT 

: PRINT "SCORE-"D 

END 

DATA -41,85,-40,66,-39,73,-1,67,0,90, 

1,67,39,74,40,66,41,75 

DATA 0,254, 1 ,254,2,252,-40, 108,-39, 

32,-38,97,-37,32 

PRINT "CCLRKWHITE3": PRINT "SAVE 

YOUR CITY BY INTERCEPTING ON 
CSPACE 73COMINS MISSILES." 
PRINT : PRINT "USE JOYSTICK 

OR CURSOR KEYS TO MOVE 
YOUR LASER SIGHT <+) " 
PRINT s PRINT "PRESS FIRE BUTTON, 

RETURN KEY OR SPACECSPACE 23BAR 

TO FIRE." 
PRINT : PRINT "HIT ANY KEY TO 

START" 
GET Q*: IF Q**"" THEN 560 
RETURN 
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Wallbangers 



It's you against the computer as you both try to trap each other by building electrified walls. If 
you run into the computer's wall or the screen border, you get electrocuted, and vice- versa. 

Use a joystick to move up, down, left or right. The cursor keys will work too, but the game as 
written is really too fast for them. Good luck! 



Alteration— Change the symbols for the walls 
by changing 42 to 81 in line 340 and 250 to 
160 in line 410. 



100 
110 
120 

130 
140 

150 

160 



170 
180 

190 
200 

210 

220 

230 

240 
250 
260 



270 
280 

290 

300 
310 
320 
330 
340 
350 

360 
370 
380 



REM WALLBANGERS 

POKE 53281,0: PRINT "CCLRKWHITEl" 

PRINT "YOU WILL TRY TO BUILD 

AN ELECTRIFIED" 
PRINT "WALL AROUND ME. (*) " 
PRINT "I WILL TRY TO DO THE SAME 

TO YOU." 
PRINT "YOU CANNOT CROSS A WALL 

WITHOUT GETTING ZAPPED.": PRINT 
PRINT "USE JOYSTICK OR CURSOR 

KEYS TO CHANGECSPACE 43 
DIRECTION. " 

D(0)«-40:D(1)«-1:D(2)»1:D(3)»40 
PRINT : PRINT "HIT ANY KEY TO 

START " 
GET Q*: IF Q**"" THEN 190 
PRINT "CCLR3": FOR X=55296 TO 
56295: POKE X,l: NEXT X 
FOR X*1024 TO 1063: POKE X,160 
: POKE X+960,160: NEXT X 
FOR X«1064 TO 1944 STEP 40 
: POKE X,160: POKE X+39,160 
: NEXT X 

L»1924: D»-40: EL-1 124: ED*4: S»54272 
:N«100 

FOR X*S TO S+24: POKE X,0: NEXT 
POKE S+24, 15 

POKE S+1,19: POKE S+4,29 
: POKE S+5,19: POKE S+15,18 
: POKE S+24, 15 
K- PEEK (197): J- PEEK (653) 
JY* PEEK (56321) :FI*JY AND 16 
:JY«15-(JY AND 15) 
IF JY«1 OR (K«7 AND J»l> THEN 
D— 40 

IF JY-2 
IF JY»4 



(K-7 
(K«2 
(K«2 AND 



AND J*0) 
AND J»l) 



THEN D«40 
THEN D*-l 



J»0) THEN D«l 



OR 

OR 
IF JY-8 OR 
IF PEEK (L+D)<>32 THEN 450 
L*L+D: POKE L,42 

IF RND (2)>.95 THEN ED» INT ( RND 
(3)*4) 

POKE S+24 

IF PEEK (EL+D(ED))*32 THEN 410 
FOR X-0 TO 3: IF PEEK 
(EL+D(X))«32 THEN ED*X 
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WMMU 






390 
400 
410 
420 

430 



440 

450 



460 



470 
480 



NEXT X 

IF PEEK <EL+D(ED))<>32 THEN 420 
EL*EL+D(ED): POKE EL, 250s GOTO 260 
PRINT "CH0ME3"; TAB( 17) "SOT 

ME!"s FOR T»l TO 2000: NEXT T 
PRINT "CCLRD": PRINT 
: PRINT TAB( 15) "YOU GOT ME" 
: PRINT 
GOTO 470 

POKE 53280,2s PRINT "CH0ME3": 
TAB( 13) "YOU GOT ZAPPED!" 
s FOR T»l TO 2000: NEXT T 
PRINT "CCLR3": PRINT 
s PRINT TAB< 13) "YOU GOT ZAPPED!" 
: PRINT s POKE 53280,6 
POKE 198,0: INPUT "PLAY AGAIN" :Q* 
IF LEFT* (Q*,1)-"Y" THEN 110 
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Rear Gunner 

The computer shows you the view out the tail window of a Star Fighter traveling through space. 
From this vantage point, you will see enemy ships (Y and +), and members of your own squadron 
(U, V, W and X) . You want to fire at and destroy the dangerous intruders, but be careful not to 
shoot at your allies! 

Use the space bar to fire as soon as an asteroid or enemy ship appears. Your timing must be very 
good. You score 20 points if you hit an enemy. You lose 20 points if you destroy a friendly ship. You 
have two minutes to play. 



Alteration— Change the penalty for hitting a 
friend to 30 by changing the value of SR in line 
290toSR=SR-3O. 



100 REM REAR GUNNER 
110 DIM T<11):HI*0:S0*54272 
120 PRINT "CCLR3Y0U ARE ABOUT TO 
TAKE YOUR PLACE IN THE 

TAILBUNNER POSITION. " 
130 PRINT "SHOOT DOWN THE ENEMY 
Y OR + FOR POINTS. AVOID 

SHOOTING DOWN MEMBERS" 
140 PRINT "OF YOUR OWN SIDE 

: U V W X. YOU LOSE" 
150 PRINT "POINTS FOR HITTING YOUR 

OWN FIGHTERS." 
160 PRINT : PRINT "HIT ANY KEY TO 

START.": POKE 198,0 
170 GET Q*: IF Q**"" THEN 170 
180 POKE 53280,6: POKE 532B1,0:SR=0 
190 PRINT "CCLR3": FOR X=55296 TO 

56295: POKE X,l: NEXT 
200 FOR X=1104 TO 2023: IF RND (8X.1 

THEN POKE X,46 
210 NEXT X: FOR X-1064 TO 1391 STEP 

41: POKE X,77: NEXT 
220 FOR X-1103 TO 1392 STEP 39 

: POKE X,78: NEXT 

: FOR X=1392 TO 1415: POKE X,99 

: POKE X+280,100 
230 NEXT : FOR X=1391 TO 1691 STEP 40 

: POKE X,103: POKE X+25,101 

: NEXT 
240 FOR X-1984 TO 1689 STEP -39 

: POKE X,7S: NEXT 

: FOR X=2023 TO 1716 STEP -41 

: POKE X,77: NEXT 
250 FP=1523: FOR X=0 TO 4:T(X)=X+21 

: NEXT :T<5)=43: FOR X=6 TO 11 

:T(X>=32: NEXT 
260 T I *=" 000000" 
270 T= INT < RND (8)*12) 

: POKE FP,T<T) 
280 REM 
290 IF PEEK (197) =60 AND PEEK (FPX25 

THEN SR=SR-20: GQSUB 400 
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Alteration— To change points scored when 
hitting an enemy to 35, change the value of SR 
inline300toSR=SR+35. 



Alteration— To make the game last for three 
minutes, change Tl in line 330 to IF 
Tl> 10800 THEN 360. 



300 IF PEEK (197) =60 AND < PEEK 

(FP)=25 OR PEEK (FP)=43) THEN 

SR=SR+20: GOSUB 400 
310 PRINT "CH0ME3" TAB( 8) "CYEL3SC0RE 
" STR* (SR)+"CSPACE 43TIME 
" MID* <TI*,4,1>" 

s" RIGHT* (TI*,2)+" " 
320 IF PEEK (197)060 OR PEEK (FP)=32 

THEN POKE SO+24,0 
330 IF TI>7200 THEN 360 
340 IF RND (8)>.9 THEN 270 
350 GOTO 290 
360 PRINT "CCLRICWHITEKDOWN 73 

CSPACE 103***GAME OVER***" 

: IF SR>HI THEN HI=SR 
370 PRINT : PRINT " SCORE* "SR 

: PRINT "HIGH »"HI 
380 FOR X»l TO 2000: NEXT X 
390 GOTO 160 
400 FOR X=SO TO S0+23s POKE X,0 

: NEXT : POKE S0+14 f 6 

: POKE SO+18,16: POKE S0+3,l 
410 POKE SO+24,143: POKE SO+6,240 

: POKE S0+4,65:FR=5389 

: FOR T*0 TO 2 
420 FQ»FR+144:HF« INT (FQ/256) 

:LF»FQ-HF*256: POKE SO+0,LF 

s POKE S0+1,HF 
430 NEXT Ts RETURN 
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Le Mans 

Get your helmet and racing gloves ready! You are about to negotiate the challenging track at Le 
Mans. In this computer simulation, you use a joystick or < and > keys to steer. Avoid other cars, 
debris and running off the road. 



Alteration— Make the track wider by adding 
more # symbols to string variable R$ in line 
130. 



100 REM LE MANS 

110 POKE 52,48: POKE 56,48: CLR 

120 GOTO 410 

1 30 R*= " C MED . BRAY 3 ######### " : R» 1 6 

:W* LEN <R*):A*5 
140 PRINT "CCLR3": POKE 53281,0 

:L=1884 
150 FOR 1=1 TO 23: PRINT TAB( R>R* 

: NEXT 
160 S-54272: FOR N»S TO S+24 

: POKE N,0: NEXT 
170 POKE S+5,65: POKE S+6,65 

: POKE S+24, 15: POKE S+1,1 

: POKE S,95: POKE S+4,129 
180 K* RND <9): IF K<.3 AND R>1 THEN 

R X R~1 
190 IF K>.7 AND R<38-W THEN R=R+1 
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Programming Note— Line 210 is a special trick 
that makes the screen display scroll backward. 



Alteration— To decrease the amount of traffic, 
change M/500 in line 250 to M/1 OOO. 



200 PRINT "CH0ME3CD0WN 23" TAB< R)R* 
210 PRINT "CHOME3CDOWN3CLEFT3CINST3" 

: POKE 218,156 
220 MI« INT (M/10)/10: IF MI>HS THEN 

HS-MI 
230 PRINT "CHQME3CWHITE3MILES 

:" STR* <MI)+"CSPACE 23":M»M+1 
240 IF RND (8XM/3000 THEN PRINT " 

CH0ME3CD0WN 33" TAB( R+ RND 

(9) *A+1 ) " CMED. GRAY38t" 
250 IF RND (8KM/500 THEN PRINT ■ 

C HOME 3C DOWN 33" TAB( R+ RND 

<9) *A+1 ) " CMED. GRAY37." 
260 POKE L+40,35: POKE L+40+54272,12 

:JY« PEEK (56321 ):JY*15-<JY AND 

15) 
270 IF PEEK < 197) =47 OR <JY<7 AND 

JY>3) THEN L«L-1 
280 IF PEEK <197)*44 OR JY>7 THEN 

L=L+1 
290 IF PEEK (L)<>35 AND PEEK (L)<>36 

THEN 310 
300 POKE L,36: POKE L+54272,1 

: 60T0 180 
310 POKE L,35: POKE L+54272,2 
320 S»54272: FOR N«S TO S+24 

: POKE N,Os NEXT 
330 POKE S+5,25: POKE S+6,25 

: POKE S+24, 15 
340 POKE S+1,5: POKE 8,235 

: POKE S+4,129 
350 PRINT s PRINT " C HOME 3 C DOWN 23 

CWHITE3CSPACE 113******CRASH**** 

**■« 
360 PRINT : PRINT "HIGH: "HS: PRINT 

: FOR T«0 TO 999: NEXT T 

: POKE S+24,0 
370 PRINT "CSPACE 83HIT ANY KEY 

TO RESTART"; POKE 198,0 
380 SET Q*: IF Q**"" THEN 380 
390 M*0: GOTO 130 
400 END 

410 PRINT ,, CCLR3CWHITE3 ,, s PRINT M YOU 
ARE ABOUT TO DRIVE AT LE MANS." 

s PRINT 
420 PRINT "USE < TO STEER LEFT AND 
> TO STEERCSPACE 63RIGHT OR 
USE JOYSTICK." 
430 PRINT s PRINT "AVOID OTHER CARS 

AND DEBRIS.": PRINT 
440 PRINT "PLEASE WAIT FOR ME TO 
SET UP." 

MORE- 
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Programming Note— Lines 480 to 520 create < 
special set of graphic characters for this game. 



450 POKE 56334, PEEK (56334) AND 254 

: POKE 1, PEEK <1> AND 251 
460 0=12288: FOR 1=0 TO 511 

: POKE I+C, PEEK (1+53248) 

: NEXT I: POKE 1, PEEK (1) OR 4 
470 POKE 56334, PEEK (56334) OR 1 

: FOR T=l TO 1000: NEXT 
480 FOR 1-280 TO 312: READ J 

: POKE I+C, J: NEXT I 
490 HS=0: POKE 53272, ( PEEK (53272) 

AND 240) +12 
500 60T0 130 
510 DATA 255,255,255,255,255,255,255, 

255,66,0,66,195,195,66,0,66 
520 DATA 189,129,165,231,231,165,129, 

189,239,215,85, 170,85, 171 ,247, 

239,215 
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Moon Lander 

You must try to land your ship safely on the moon. Control the amount of thrust by pressing the 
number keys. The higher the thrust, the greater the deceleration and fuel use. If you run out of fuel, 
the engine won't work and the ship crashes. 

To land safely, you must reach zero altitude at a rate between —5 and 5 meters per second. 



100 REM MOON LANDER 

110 GOSUB 490 

120 PRINT "CHOME3CYEL3ALTITUDE 

:" STR* < INT <A+.5>)+" ", 

"METERS" 
130 PRINT "VELOCITY:" STR* ( INT 

(V+.5) )+"CSPACE 2 3", "METERS/SEC" 
140 PRINT "FUELCSPACE 43 

8" STR* < INT (F+.5)>+" "."KB" 
150 PRINT " THRUST C SPACE 23 

:" STR* ( INT <T*10+.5) )+"7. 

CSPACE 23" 
160 GET T$: IF T*<>"" THEN T= VAL 

<T$> 
170 IF F<=0 THEN F=0:T=0 
180 IF T*=" " THEN T*10 
190 DV=V-G+(T#20000)/(M+F):F=F-T 
200 A=A+(V+DV)/2:V=DV 

MORE-* 
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120 

IF V<10 THEN 410 
POKE N,7: PRINT "CCLR3 
103CSPACE 133 



210 PRINT F*;: FOR X»l TO 8 

s PRINT TAB< 17)"CSPACE 33" 

: NEXT X 
220 IF T>0 THEN PRINT F*"CYEL3++±" 
230 IF T>1 THEN PRINT F*" L DOWN 3 C "RED 3 + 

CYEL3+CRED3+" 
240 IF T>2 THEN PRINT F*"CDOWN 23 

CRED3±++" 
250 IF T>3 THEN PRINT F*"CDOWN 33 

CRED3+++" 
260 IF T>4 THEN PRINT F*"CDOWN 43 

CRED3+++" 
270 IF T>5 THEN PRINT F*"CDOWN 53 

CRED3+++" 
280 IF T>6 THEN PRINT F*"CDOWN 63 

CRED3+++" 
290 IF T>7 THEN PRINT F*"CDOWN 73 

CRED3+++" 
300 IF A>5 THEN 
310 V» ABS <V>: 
320 POKE N-1,2: 

CWHITE3CD0WN 

***CRASH**»" 
330 FOR LO-SO TO SO+24: POKE L0,0 

: NEXT 
340 POKE SO+5,15: POKE SO+6,15 

: POKE SO+24 15 
350 POKE S0+ 1,1:' POKE 80,235 

: POKE SO+4,129: POKE SO+4,128 
360 FOR X«l TO 99s IF < PEEK <N> AND 

15) =7 THEN POKE N,2: GOTO 380 
370 POKE N,7 

380 FOR T*l TO 44: NEXT T,X 
390 FOR T-l TO 2000: NEXT 

: POKE 198,0 
400 POKE N,0: POKE N-1,6 
410 PRINT "CH0ME3CD0WN 63CWHITE3" 
420 IF V<«5 THEN PRINT "PERFECT 

LANDINB!" 
430 IF V>5 AND V<*10 THEN PRINT "HARD 

LANDING" 
440 IF V>10 THEN PRINT "CRASH 

LANDING" 
450 IF V>15 THEN PRINT "NO 

SURVIVORS!" 
460 PRINT : PRINT : PRINT 

: INPUT "PLAY AGAIN" ;Q* 
470 IF LEFT* <Q#,1)*"Y" THEN 110 
480 END 

490 S0»54272:N»532B1 
500 POKE N,0: PRINT "CCLR3CWHITE3" 
510 PRINT TAB( 15) "CRVS0N3M00N LANDER 

CRVS0FF3": PRINT : PRINT 



26 



Moon Lander 



Alteration— Try changing the values for the 
following variables in line 720: A is starting 
altitude; M is mass of spaceship without fuel; F 
is amount of fuel; G is gravity, which affects 
the rate of fall. 



520 PRINT "TRY TO LAND YOUR SHIP 

FIVE METERS PER" 
530 PRINT "SECOND OR LESS."* PRINT 
540 PRINT "PRESS KEYS 0-9 TO SET 

THRUST. " 
550 PRINT "PRESS SPACE BAR FOR 

MAXIMUM": PRINT "THRUST." 
560 PRINT : PRINT "HIT ANY KEY TO 

START. " 
570 GET Q*: IF Q**"" THEN 570 
580 P**"CH0ME3CD0WN 53":F*=P$+"CD0WN 103 

CRIGHT 173" 
590 PRINT "CCLR3" 
600 PRINT P* TAB( 17) "HWUI " 
610 PRINT TAB< 14)" C R VSON 3 CPOUNDJ 

[SPACE 53* CRVSOFF 3" 

620 PRINT TAB( 14)" CRVS0N3 *CRVS0FF3 

CRVS0N3 CRVS0FF3 CRVSON 3 CPOUNDJ 
ii 

630 PRINT TAB( 14)" CRVS0N3 CSPACE 73" 
640 PRINT TAB< 14)" CRVS0N3 CSPACE 33 

CRVS0FF3 CRV50N3 CSPACE 33" 
650 PRINT TAB< 14)" * CRVSON 3 CSPACE 53 

CRVSOFF 1 CPOUNDJ " 
660 PRINT TAB( 14) "CRVS0N3 CSPACE 93" 
670 PRINT TAB< 14) "CRVS0N3 CSPACE 33 

US A C SPACE 33" 
680 PRINT TAB( 13) "CRVSON 3b CRVSOFF 3 
iu C RVSON 3 C SPACE 3 3 C RVSOFF 3 ui_ 

k" 

690 PRINT TAB( 12) "CRVSGN3b_CRVSOFF3iu 

CSPACE 23 CRVSON 3 CPOUNDJ * CRVSOFF 3 

CSPACE 23uib" 
700 PRINT TAB( 11) "CRVSON 3b CRVSOFF 3 

CSPACE 133b" 
710 PRINT TAB( 10) "c CRVSON 3 iCRVS0FF3 

CSPACE 133CRVSON3i_CRVSOFF3v" 
720 A*20000 i M*8000 : F*2000 : G» 1 : V«0 

iT«0 
730 RETURN 
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Gambler 

Play the one-armed bandit at the computer casino. The computer calculates payoff based on the 
amount bet— nickels, quarters or dollars. Jackpots are awarded for three of a kind. The computer 
plays until you've won $100 or lost everything. To quit early, press the RUN/STOP key. 



Alteration— Sound effects are due to lines 160, 
560 and 770. Alter the sound by changing 
N* 5 in line 560 to N* any number from 1 to 
10. 



Alteration— Change the appearance of the slot 
machine by altering graphics and color symbols 
in lines 210-330. 



100 REM GAMBLER 
110 POKE 53281,1 
120 D*="C HOME 3 [DOWN 53" 

: B*=" CRIGHT 173 " : H$=B$+" CRIGHT 



113 



130 
140 

150 
160 
170 
180 
190 



200 
210 

220 

230 

240 

250 
260 
270 

280 



S(X)s NEXT 
S<X>,0: NEXT 



290 
300 
310 
320 



P$=D*+"CDOWN 63" 

R* < 1 ) =P*+B*: R* (2) =R* < 1 ) +" CRIGHT 33 

" :R* (3) «R$<2)+" CRIGHT 33" 

Kt ( 1 ) = " A" : K* (2) ="B" : K* <3) = "C" 

FOR X=l TO 6s READ 

FOR X«l TO 6: POKE 

D=10 

PRINT "CCLR3CSPACE 43 CBLK3 WELCOME 

TO THE MICROCHIP CASINO!" 
: PRINT 
PRINT : PRINT 

PRINT TABC 15)"CBLK3CRVSON3 
C SPACE 103CRVSOFF3" 
PRINT TAB( 13)"CBLK3<CRVSON3 
C SPACE 123CRVSOFF3) 
PRINT TAB( 13>"CRVS0N3 CRED3 bbbbbb 
bbbbbb CBLK3 CRVS0FF3" 
PRINT TAB< 13)"CRVSON3 CRED3bbb 
CBLK3BANDITCRED3bbbCBLK3 CRVS0FF3 

PRINT TAB( 13)"CRVS0N3 CRED3 bbbbbb 

bbbbbb CBLK3 CRVS0FF3" 

PRINT TABC 13)"CRVS0N3 CRED3 bbbbbb 

bbbbbb CBLK3 CRVS0FF3" 

PRINT TAB( 13)"CRVSON3 CRED3b 

CBLU3CSPACE 103CRED3bCBLK3 

CRVS0FF3" 

PRINT TAB( 13)"CRVS0N3 CRED3b 

CBLU3 CWHITE3CSPACE 23CBLU3 

CWHITE3CSPACE 23CBLU3 CWHITE3 
CSPACE 23CBLU3 CRED3bCBLK3CSPACE 33 

PRINT TAB< 13)"CRVSON3 CRED3b 
CBLU3 CSPACE 103CRED3bCBLK3 " 
PRINT TABC 13)"CRVSON3 CRED3 bbbbbb 
bbbbbb CBLK3 " 

PRINT TAB( 13)"CRVS0N3 CRED3 bbbbbb 
bbb bbb CBLK3 " 

13)"CRVSON3 



PRINT TAB( 
bbbbbbCBLK3 



CRED3bbbbbb 
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330 PRINT TAB( 12) "CRVSONK SPACE 23 

CRED3 bbbbbbbbbbbb CBLK3C5FACE 23° 
340 PRINT TAB< 11) "CRVSONK SPACE 133" 
350 PRINT : PRINT TAB( 14) "CRVS0N3F-1 

CRVS0FF3 NICKEL": PRINT 

: PRINT TAB* 14) "CRVS0N3F-3 

CRVS0FF3 QUARTER" 
360 PRINT : PRINT TAB< 14) "CRVSON3F-5 

CRVS0FF3 DOLLAR" 
370 PRINT D*;H#" CRVS0N3 CRVS0FF3k" 

: PRINT H*"CRVS0N3kr.SPACE 23" 
380 FOR X*l TO 4: PRINT H*" CRVS0N3k" 

s NEXT X 
390 PRINT H*"CRVS0N3 k" 
400 FOR X«l TO 3s PRINT R$<X) "CRVS0N3 

CWHITE3 CBLK3": NEXT X 

410 PRINT "CH0ME3CD0WN 23 [SPACE 83 YOU 

HAVE *" STR* (D)" LEFT. C SPACE 23 
it 

420 POKE 198,0 

430 6ET Q$: IF Q*»"" THEN 430 
440 B*0: IF Q*»"Cfl3" THEN B=.05 
450 IF Q**"C-F33" THEN B-.25 
460 IF Q$»"Df53" THEN B*l 
470 IF B»0 OR B>D THEN 430 
480 D*D-B 

490 PRINT D*;H*"CSPACE 33" 
500 FOR X»l TO 5s PRINT H#"CSPACE 33" 
« NEXT x MORE- 
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Alteration— Increase jackpot payoffby 
changing 50 in line 610 to a larger number. 



510 PRINT P*;H$"CRVS0N3 k" 

520 FOR X»l TO 3: PRINT H$" CRVS0N3k" 

: NEXT X 
530 PRINT H$"r.RVS0N3kCSPACE 23" 
540 PRINT H*" CRVSON3 CRVS0FF3k" 
550 C=0: POKE 54296,15 
560 N= INT < RND <4>*20>+l 

: FOR X=l TO 6: POKE S<X>,N*5 

: NEXT 
570 IF N=20 AND RND (2X.7 THEN C=C+1 

:T*(C)=K*< INT < RND <5>*3>+l) 

: PRINT R*(C);T$<C) 
580 FOR X*l TO 6: POKE S(X>,0: NEXT 
590 IF C<3 THEN 560 
600 IF T*<1X>T*(2) OR T$(i)OT*(3) 

OR T*(3)OT$(2) THEN 690 
610 D=D+B* INT ( RND <8)*50>+l 
620 FOR Y*l TO 7 

630 PRINT " C HOME 3 1 DOWN 33CSPACE 293" 
640 FOR X*l TO 6: POKE 8<X>,20: NEXT 
650 PRINT "CH0ME3CD0WN 33CSPACE 153 

CRVSON3CRED3 JACKPOT! CBLK3 

CRVS0FF3" 
660 FOR T*l TO 400: NEXT T 
670 FOR X*l TO 6: POKE S(X),0 

s NEXT X,Y 
600 PRINT "CH0ME3CD0WN 33CSPACE 333" 
690 FOR T«0 TO 999: NEXT T 
700 PRINT P*;H*"CSPACE 33" 
710 FOR X«l TO 5: PRINT H*"CSPACE 33" 

: NEXT X 
720 IF D>100 THEN PRINT "CCLR3 THE 
'BANDIT' IS OUT OF MONEY!" 

: GOTO 750 
730 IF D>0 THEN 370 
740 PRINT "CCLR3": PRINT "YOU ARE 

BROKE ! " 
750 PRINT : PRINT : INPUT "PLAY 

AGAIN" ;Q* 
760 IF LEFT* <Q*,1>»"Y" THEN 180 
770 DATA 54272,54273,54279,54280, 

54286,54287 



30 



Orion 



Orion 

This is your chance to be a warrior, defending your cities by shooting down invading drones. 
You have three missile silos. Fire your interceptor missiles at the incoming drones by pressing keys 
1, 2 or 3. Once you launch a missile, you can't launch another from that silo until the missile hits a 
drone or reaches maximum altitude. You lose when all of your buildings are destroyed. 



100 REM ORION 

110 BOSUB 470 

120 PRINT "CCLR3 M : POKE 53280,0 

: POKE 53281,6: FOR X-55296 TO 

56176: POKE X,15: NEXT X 
130 FOR X-56176 TO 56295: POKE X,7 

: NEXT X 
140 FOR X*1904 TO 2023: POKE X,160 

: NEXT :Z«. 1:DD=0:SR=8:V«0 

MORE 




31 



Orion 



Alteration— Change the number and shapes of 
buildings by changing line 150. 




ISO PRINT A#;"CBLKKSPACE 3KRVS0N1C 
CRVSOFFKSPACE 63CRVSON3yv 

CRVSOFFnt SPACE 23ikCSPACE 43 

C R VSON ] kv C RVSOFF 1 qC RVSON 1 v 

C RVSOFF K SPACE 41dCRVSON3v 

C RVSOFF 3 ik" 
160 FOR X=l TO 3: POKE BS(X>,30 

:BL(X)=BS<X):M(X)=0:F(X)=0: NEXT 
170 Z*Z+.001 

ISO FOR X«l TO 3: IF M(X)=1 THEN 210 
190 J(X)»1344+ INT < RND <8>*240> 

s IF RND (8)>Z THEN 250 
200 POKE J(X)-1,M: POKE J(X),M 

s POKE J<X)+l,M:M<X>=lzD<X>=41 

: IF RND (S)>.5 THEN DCX>=39 
210 IF PEEK (J(X))=M AND PEEK 

<J(X)+1)=M AND PEEK (J(X)-1)=M 

THEN 230 
220 POKE J<X)-1,32: POKE J(X>,32 

: POKE J (X) +1,32: POKE J (X) -1,32 

:M(X)»0: GOTO 250 
230 POKE J (X) -1,32: POKE J(X>,32 

: POKE J(X)+1,32:J(X)=J(X)+D<X) 

: IF J(X>>1903 THEN 370 
240 POKE J(X),M: POKE J<X)+1,M 

: POKE J<X)-1,M 
250 IF F<X)*1 THEN 280 
260 SET F*:A= VAL <F*> : IF A<1 OR A>3 

THEN 280 
270 F<A)»1 
280 IF PEEK <BL<X))<>30 AND 

<BL(X))<1864 THEN 390 
290 POKE BL(X),32: IF F(X)=1 THEN 

BL(X)*BL(X)-40 
300 IF BL(X)>1304 THEN 320 
310 BL<X)»BS(X):F(X)=0 
320 POKE BL(X),30: NEXT X 
330 SR=0: FOR Y=1864 TO 1902 

: IF PEEK (Y)>90 THEN SR=SR+1 
340 NEXT Y: PRINT "CHOMEH WHITE 1 SCORE 

CSPACE 43:"DD: PRINT "BUILDINGS 

:•• STR* (SR)+" " 
350 IF SR<1 THEN 430 
360 GOTO 170 
370 50=54272: FOR Z»SO TO SO+24 

: POKE Z,0: NEXT Z: POKE SO+5,15 

: POKE SO+6,15: POKE SO+24, 15 
380 POKE S0+l,3: POKE SO, 245 

: POKE S0+4,129:M<X)»0: GOTO 250 



^^1// 
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390 S0=54272: FOR Z=SO TO SO+24 

: POKE Z,0: NEXT Z: POKE SO+5,15 

: POKE SO+6,15: POKE SO+24, 15 
400 POKE 50+1,5: POKE SO, 235 

: POKE SO+4,129: FOR Y=0 TO 8 

s POKE BL(X)+EL(Y),EC(Y) 
410 POKE 54272+BL<X)+EL(Y),7: NEXT Y 

: FOR T=l TO 50: NEXT T:DD=DD+SR 
420 FOR Y=0 TO 8: POKE BL<X)+EL<Y) ,32 

: POKE 54272+BL(X)+EL(Y),l 

: NEXT Y: 6QT0 310 
430 PRINT "CH0ME3ED0WN 73CSPACE 93 

♦***CITY DESTROYED****": PRINT 

: PRINT 
440 FOR T=l TO 2000: NEXT T 

: POKE 198,0s PRINT " [SPACE 93HIT 
ANY KEY TO RESTART" 
450 SET Q$: IF Q*="" THEN 450 
460 SOTO 120 
470 A*="CH0ME3CD0WN 213" 
480 FOR X=0 TO 8: READ EL(X),EC<X) 

: NEXT 
490 BS ( 1 ) =1913: BS (2) =1922: BS <3) =1931 

:M=90:I=30 
500 PRINT "CCLR3" TAB( 17) ; "ORION" 

: PRINT : PRINT "C SPACE 2 3 DEFEND 
YOUR CITY WITH INTERCEPTORS" 
510 PRINT : PRINT "CSPAGE 23PRESS 
KEYS 1-3 TO LAUNCH MISSILES." 

: PRINT 
520 PRINT "CSPACE 93HIT ANY KEY 

TO START" 
530 SET Q*: IF Q$=" M THEN 530 
540 RETURN 
550 DATA -41,85,-40,66,-39,73,-1,67,0,9 

1,67,39,74,40,66,41,75 
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Berserkotron 

You're applying for a job at a computer-game factory, but get lost in a room of berserk robots. 
Escaping through one of three exits is your only hope of survival. 

This is made difficult because the robots chase you. Though berserk, they aren't stupid. Lines 
210-270 give the robots the ability to track your position. However, you can use the barriers in the 
room to block a robot's progress. The game ends if one catches you. 



100 REM BERSERKOTRON 

110 GOSUB 510 

120 JY» PEEK (56321 ):JY=15-<JY AND 15) 

:K* PEEK (197) :J» PEEK (653>:AL=L 
130 POKE L,32: IF JY-1 OR JY=5 OR 

JY«9 OR <K*7 AND J«l) THEN 

AL*AL-40 
140 IF JY«2 OR JY-6 OR JY=10 OR <K*7 

AND J«0) THEN AL=AL+40 
150 IF (JY>3 AND JY<7) OR (K*2 AND 

J*l) THEN AL-AL-1 
160 IF JY>7 OR (K»2 AND J*0> THEN 

AL»AL+1 
170 IF PEEK (ADO160 THEN L*AL 
180 IF PEEK (L)*R THEN 300 
190 IF PEEK (L>*46 THEN 440 
200 POKE L,I:LY» INT <(L-S)/40) 

■ LX se L~S--LY*40 
210 FOR X«l TO 3sM«R(X>: POKE M,32 
220 RY= INT <<M-S>/40):RX«M-S-RY*40 
230 IF RX<LX AND ( PEEK <M+1)»32 OR 

PEEK <M+1)*I> THEN M*M+1 
240 IF RXM-X AND ( PEEK (M-l)=32 OR 

PEEK <M-1>»I> THEN M»M-1 
250 IF RY>LY AND < PEEK <M-40)«32 OR 

PEEK <M-40>«I) THEN M»M-40 
260 IF RY<LY AND ( PEEK <M+40>«32 OR 

PEEK <M+40)=I> THEN M-M+40 
270 R<X)«Ms POKE M,R 
280 IF M=L THEN 300 
290 NEXT X: GOTO 120 
300 REM CAUGHT 
310 SO-54272: FOR X»0 TO 24 

: POKE SO+X,Oi NEXT X 
320 POKE SO+14,5! POKE SO+18,16 

l POKE SO+3,1: POKE SO+24,143 
330 POKE SO+6,240: POKE SO+4,65 
340 POKE 53280,2: Fl«5389 

i FOR X«0 TO 119sF»Fl+ PEEK 

(S0+27)*3.5 
350 H« INT <F/256):L«F-H*256 
360 IF INT (X/10)/2» INT ( INT 

<X/10)/2) THEN POKE 53280,2 

s POKE 53281,2 
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370 IF INT <X/10)/2<> INT < INT 

(X/10)/2) THEN POKE 53280,14 

: POKE 53281,11 
380 POKE SO,L: POKE 50+1, H: NEXT X 
390 POKE SO+24,0 
400 FOR X=l TO 2000: NEXT X 
410 PRINT "CCLR3": PRINT : PRINT 
420 PRINT TAB( 12) "YOU WERE CAUGHT!" 

: PRINT : PRINT a PRINT 
430 GOTO 480 
440 REM SAFE 

450 FOR X-l TO 2000: NEXT X 
460 PRINT "CCLR3": PRINT : PRINT 
470 PRINT TAB( 14) "YOU MADE IT!" 

: PRINT : PRINT 
480 POKE 198,0: PRINT TABC 14) "PLAY 

AGAIN";: INPUT Q* 
490 IF LEFT* (Q*,1)«"Y" THEN 110 
500 END 

510 PRINT "CCLRKBLK3": POKE 53281,11 
520 PRINT TAB< 14) ; "CRVS0N3 

BESERKOTRON": PRINT 
530 PRINT "ON THE WAY TO INTERVIEW 

FOR A JOB AS A" 
540 PRINT "COMPUTER GAME TESTER, 

YOU MADE A WRONG TURN...": PRINT 

MORE- 
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Alteration— Change the symbols for barriers 
and robots by changing the values of B and R 
respectively in line 710. 

Alteration— Change the number of barriers by 
changing the value of BX in line 720. For 
example, BX— 50 would make the game more 
difficult; BX=250 would make the game 
easier. 



550 PRINT "YOU HAVE JUST ENTERED 

THE ROBOT ROOM." 
560 PRINT "YOU ARE NOT WELCOME." 

: PRINT 
570 PRINT "USE A JOYSTICK OR THE 

CURSOR KEYS TO" 
580 PRINT "RUN THROUGH THE SIDE OR 

BOTTOM DOORS.": PRINT 
590 PRINT "ENTER YOUR FIRST INITIAL." 
600 GET I*: IF I*«"" THEN 600 
610 IF ASC <I*)<65 OR ASC <I*)>90 

THEN 600 
620 PRINT "AVOID ROBOTS (CRVS0N3R 

CRVS0FF3).": PRINT 
630 PRINT "YOUR ONE ADVANTAGE IS 

YOU CAN GO THROUGH"; 
640 PRINT "THE BLACK CIRCLES AND 

THE ROBOTS CANNOT.": PRINT 
650 PRINT "HIT ANY KEY TO START." 
660 GET Q*: IF Q**"'» THEN 660 
670 PRINT "CCLR3": PRINT "CBLK3 
CRVS0N3CSPACE 373" 



680 FOR X»l TO 9 



PRINT " CRVS0N3 

"CRVS0N3 M : NEXT 

TAB< 37);"." 

PRINT " CRVS0N3 

"CRVS0N3 ": NEXT 



"; TAB< 37) 

: PRINT " ." 
690 FOR X-l TO 9 
"; TAB( 37) 
700 PRINT " CRVS0N3CSPACE 193CRVSOFF3 

. CRVS0N3 CSPACE 173" 
710 S»1106:B»81:R«146:I= ASC (I*) -64 
720 BX=199 
730 FOR X=55296 TO 56295: POKE X,0 

: NEXT X 
740 FOR X*0 TO BX: POKE S+40* INT < 

RND (8)*19)+ INT < RND <8)*35),B 

■ NEXT X 
750 R(1)»1428:R(2)*1458:R(3)=1764 

:L»S+18 
760 FOR X«l TO 3: POKE R<X),R: NEXT X 

: POKE L,I 
770 RETURN 
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Shell Game 



In this game, the computer will place a ball under one of three boxes. Then it shuffles the boxes 
around the screen. Watch carefully because you're asked to find the box that has the ball. 



Alteration— You may want to add sound 
effects similar to those used in Gambler while 
the boxes are being shuffled. 



100 REM SHELL SAME 

110 SOSUB 450 

120 PRINT "CCLRJ" TAB( 15) "CRVSON] 

SHELL BAMECRVSQFF3" 
130 FOR X«7 TO 9: FOR Y=l TO 3 

: PRINT L*<X);S$<Y): NEXT Y,X 
140 L* INT < RND (8)*3)+l 
150 PRINT L*(L);B* 
160 PRINT " CBLK3 C HOME 11 DOWN 23HIT 

ANY KEY TO START" 
170 SET Q*: IF Q*= ,,H THEN 170 
180 PRINT "CHOMEDCDOWN 23CSPACE 213" 
190 FOR X*7 TO 9: FOR Y=l TO 3 

: PRINT L*<X);E*(Y): NEXT Y,X 
200 FOR X«l TO 3: FOR Y-l TO 3 

: PRINT L*<X);S*(Y): NEXT Y,X 
210 FOR X-i TO 3sW<X)«l: NEXT X:M«1 
220 FOR K»l TO 9:00: IF W(K)«0 THEN 

290 
230 H= INT ( RND <4>*4>+l:OC+l 

: IF C>9 THEN 290 
240 N»A(K,H): IF W<A(K,H))*1 THEN 230 
250 U(K)«0:W(A(K,H))*1 
260 FOR Y*l TO 3: PRINT L*<K);E*<Y) 

: NEXT Y 

MORE- 




37 



Shell Game 



Alteration— Change the amount of shuffling 
the computer does by altering line 300. For 
example, IF M< 4 THEN 220 decreases 
shuffling; IF M< 1 5 THEN 220 increases 
shuffling. 



270 FOR Y«l TO 3: PRINT L#(A(K,H)>; 

S*<Y): NEXT Y 
280 IF L*K THEN L-A(K,H) 
290 NEXT K:M=M+1 
300 IF M<9 THEN 220 
310 IF WU>*1 AND W<2)«1 AND W<3)=1 

THEN 330 
320 GOTO 220 
330 FOR X«l TO 3: PRINT L*<X) ; "CRVS0N3 

ii . STR$ ( X ) : NEXT X 
340 PRINT "CBLK3CHOME3CDOWN 230K, 

WHICH BOX IS THE BALL UNDER?" 
350 SET Q*: IF Q*«"" THEN 350 
360 GN VAL <Q*> : IF Q<1 OR Q>3 THEN 

350 
370 IF Q»L THEN PRINT "YOU BOT IT!" 

s GOTO 390 
380 PRINT "SORRY, IT WAS UNDER #"L 
390 FOR X=l TO 3: FOR Y*l TO 3 

I PRINT L*(X)sE*<Y): NEXT Y,X 
400 FOR X«4 TO 6: FOR Y*l TO 3 

: PRINT L*<X);S*(Y): NEXT Y,X 
410 PRINT L*(L);B* 
420 PRINT : INPUT "PLAY AGAIN" ;Q* 
430 IF LEFT* <Q*,1)»"Y" THEN 120 
440 END 

450 POKE 53281,1: PRINT "CCLR3CBLK3" 
460 PRINT "YOU ARE ABOUT TO PLAY 
C R VSON 3 SHELL GAME C R VSOFF 3 . " 
470 PRINT "I WILL PLACE A BALL <£) 

UNDER ONE OF" 
480 PRINT "THREE RED BOXES AND THEN 

SHUFFLE THE" 
490 PRINT "BOXES AROUND.": PRINT 
500 PRINT "WATCH CAREFULLY AND THEN 
TELL ME WHICHCSPACE 23B0X THE 
BALL IS UNDER." 
510 PRINT : PRINT "HIT ANY KEY TO 

CONTINUE. " 
520 GET Q*s IF Q*«"" THEN 520 
530 S* ( 1 ) =" CRED3 C R VSON 3 C SPACE 33 

CRVS0FF3":E*<1>*" CSPACE 33" 
540 S*<2)«"CDQWN3CRED3CRVSON3 CSPACE 33 

CRVS0FF3 " : E* (2) *" CD0WN3 CSPACE 33 " 
550 S*<3>*"CD0WN 23CRED3CRVSON3CSPACE 

33 CRVS0FF3 " : E* <3) «" CDQWN 23 CSPACE 

33" 
560 B*»"CBLU3CDOWN3CRIGHT3fi" 
570 L*U>»"CH0ME3CD0WN 123 [RIGHT 123" 
580 L*<2>»L*<1)+"CRIGHT 63" 
590 L*<3)-L*<2)+"CRIGHT 63" 
600 L*<4>=L$<1>+"CD0WN 63" 
610 L*(5)«L*<2)+"CD0WN 63" 
620 L*<6>=L*<3)+"CD0WN 63" 
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630 L*<7)=L*<1)+"CUP 63" 
640 L*<8>«L*<2>+"CUP 63" 
650 L*<9>*L#<3)+"CUP 63" 
660 FOR X=l TO 9: FOR Y=l TO 4 

: READ A<X,Y): NEXT Y,X 
670 RETURN 

680 DATA 2,4,7,1,1,3,5,8,2,6,9,3 
690 DATA 1,4,5,4,4,2,6,5,5,3,6,6 
700 DATA 1,7,8,7,7,2,9,8,8,9,3,9 
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Pirates 

Batten down your hatches and head for the high seas. Can you recover the gold stolen by the 
pirate Bluebeard? You must search for five pirate ships hidden in the waters displayed on the 
screen. When you find a pirate ship, you can either fire on it or board it. In the ensuing battle you 
may lose men and cannons. 

The game ends after five minutes or after you or all five pirate ships are sunk. 



100 
110 



120 
130 

140 

150 

160 

170 
180 
190 
200 

210 

220 

230 
240 
250 
260 

270 

280 

290 

300 
310 



REM PIRATES 

PRINT "CCLR3CWHITE3": PRINT "AHOY 

THERE MATEY. AND WHAT WOULD 

BE" 
INPUT "YOUR NAME NOW";N*: PRINT 
PRINT "WELL, WELL, CAPTAIN "N*" 

IT IS.": PRINT 
PRINT "AND I'M CAPTAIN 
BLUEBEARD."! PRINT 
PRINT "I HAVE A FLEET OF 5 
FRIGATES HIDDEN INC SPACE 2 3 THESE 

WATERS. CATCH ME IF 
PRINT "YOU CAN.": PRINT 
: PRINT "YOUR SHIP IS REPRESENTED 

BY AN ' S ' " 
PRINT "MY SHIPS ARE REPRESENTED 

BY A 'P'. M 
PRINT "REEFS ARE REPRESENTED 

BY AN '*'.": PRINT 
PRINT "YOUR SHIP HAS A CREW 

OF 200 MEN AND 50" 
PRINT "CANNONS.": PRINT 
: PRINT "HIT ANY KEY" 
SET Q*: IF Q**"" THEN 210 
PRINT "CCLR3": PRINT "YOUR 
COMMAND OPTIONS ARE:": PRINT 



PRINT " 
: PRINT 
PRINT " 
: PRINT 
PRINT " 
: PRINT 



N 
it 



* STEER NORTH" 
E * STEER EAST" 
S * STEER SOUTH" 
" W * STEER WEST" 
F * FIRE CANNONS" 
" B - BOARD": PRINT 
PRINT "CANNONS WILL FIRE ON 
ALL SHIPS WITHINCSPACE 33TW0 
SPACES. " 
PRINT "TO BOARD A SHIP, IT MUST 

BE ONE SPACECSPACE 3 1 AWAY. " 
PRINT : PRINT "YOU HAVE 5 
MINUTES" 
PRINT : PRINT "HIT ANY KEY TO 

START " 
GET Q#: IF Q#«"" THEN 300 
LX* INT (40* RND (8) ) 
:LY* INT < RND <8>*20>+3:S«1024 
: M=200: C«50: 8*0: K*0 
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Alteration— Change the range at which pirate 
ships are spotted by altering D(X) in line 440. 
For example, IF D(X)> 4 will increase the 
range to four spaces. 



Pirates 



320 FOR X=0 TO 4 

330 PX(X)» INT <40* RND (8) > 

:PY(X>= INT < RND <8>*20>+3 

:M<X)=100:C(X)=20 
340 IF PX<X)=LX AND PY<X)=LY THEN 330 
350 NEXT X: PRINT "CCLR3" 

:L»S+LX+40*LY: POKE L,19 

: FOR X«0 TO 24 
360 1= INT < RND (4>*800> +5+120 

: IF PEEK <I)<>32 THEN 360 
370 POKE 1,42: NEXT X 
375 FOR X =55296 TO 56295: POKE X,ls 

NEXT X 
380 TI$="000000" 
390 L=S+LX+40*LY: POKE L,19 
400 C*=" ": GET C* 
410 PRINT "C HOME 3 MEN:" STR$ <M)+" 

C SPACE 2 3 CANNONS:" STR* (C)+" 

CSPACE 23G0LD:" STR* <G)+"CSPACE 23 
n 

420 FOR X=0 TO 4:D(X)= SQR 

(<PX(X)-LX> A 2+<PY(X)-LY)^2) 

430 IF C<X)=KO OR M(X)=<0 THEN 620 

440 IF D<X)>6 THEN POKE 

S+PX(X)+PY(X)*40,32: GOTO 620 

450 POKE S+PX(X)+PY<X)*40 f 16 

460 IF D<X)>2.9 THEN 560 

470 IF CSO'T" THEN 530 *,™r. 

MORE-» 
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Alteration— Changing the equation for C(X) 
in line 520 changes the damage done by your 
cannons. For example, 
C(X)=C(X)-INT(RND(7)*.2* C) will do 
less damage. 



Alteration— Changing the equation for G in 
line 610 changes the amount of gold recovered 
from a captured pirate ship. For example, 
G=G+INT(RND(8) * 8000) will increase the 
average amount of gold recovered. 



Alteration— Changing Tl in line 710 to IF 
Tl> 1 0800 THEN 890 decreases the time 
limit to three minutes. 



480 PRINT "CHQME3CDOWN3FIRING CAPTAIN 

"N$" ! " 
490 FOR CA»1 TO C/5:S0=54272 

: FOR LO=SO TO SO+24: POKE L0,0 

s NEXT 
500 POKE SQ+5,9: POKE SO+6,15 

: POKE SO+24, 15 
510 POKE S0+l,5: POKE SO, 235 

: POKE SO+4,129: FOR TT*1 TO 40 

s NEXT TT,CA 
520 C(X)=C(X)- INT ( RND (7)*.3*C) 

:M<X)=M<X)- INT ( RND <8>*.2*C) 
530 IF RND <2)>.5 THEN C=€- INT ( RND 

<7)*.3#C<X)):M=M- INT ( RND 

(8)*. 1*C<X)) 
540 IF C<XX»0 THEN PRINT "CH0ME3 

CD0WN3PIRATE SHIP SUNKCSPACE 133" 

: FOR T*l TO 2000: NEXT T:K=K+1 
550 IF C<XX«0 THEN PRINT "CH0ME3 

C DOWN] C SPACE 193" 
560 IF D(X)>1.5 THEN 620 
570 IF C*="B" THEN PRINT "C HOME 3 

CDOWN 3 BOARDING CAPTAIN "N*" ! " 
580 IF C*«"B" THEN M(X)=M<X)- INT 

(RND <7)*.5*M) 
590 IF M(X)>0 THEN M*M- INT ( RND 

(7)*.1*M<X>) 
600 IF M<XX*0 THEN PRINT "CH0ME3 

CD0WN3PIRATE SHIP CAPTURED. 

C SPACE 133 "s FOR T=l TO 4000 

s NEXT T 
610 IF M(X><*0 THEN PRINT "CH0ME3 

CD0WN3CSPACE 223":S=G+ INT ( RND 

<8)*5000>;K=K+1 
620 IF C(XX-0 OR M<XX*0 THEN POKE 

S+PX(X)+PY<X)*40,32 
630 NEXT X: IF K»5 THEN 730 
640 PRINT " C HOME 3 C DOWN 3 C SPACE 313" 
650 IF M<»0 OR C<*0 THEN 790 
660 POKE L,32: IF C*="N" AND LY>2 

THEN LY=LY-1 
670 IF C*«"S" AND LY<22 THEN LY*LY+1 
680 IF C**"E" AND LX<40 THEN LX«LX+1 
690 IF C**"W" AND LX>1 THEN LX»LX-1 
700 IF PEEK <S+LX+40*LY>=42 THEN 840 
710 IF TIM8000 THEN 890 
720 SOTO 390 

730 PRINT "ALL PIRATES ELIMINATED" 
740 FOR T»l TO 3000: NEXT T 
750 PRINT "CCLR3" 
760 PRINT TAB< 10) "ALL PIRATES 

ELIMINATED. " 
770 PRINT : PRINT "YOU GOT "G" GOLD 

PIECES": PRINT "CAPTAIN "N*"." 
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780 
790 
800 
810 
820 

830 
840 
850 
860 
870 

880 
890 
900 
910 
920 
930 

940 



950 
960 



60T0 940 

PRINT "YOU ARE SUNK" 

FOR T*l TO 3000: NEXT T 

PRINT "CCLR3" 

PRINT "YOU ARE SUNK CAPTAIN 

"N*"." 
6QT0 940 

PRINT "YOU RAN AGROUND." 
FOR T*l TO 3000: NEXT T 
PRINT "CCLR3" 
PRINT "YOU RAN AGROUND CAPTAIN 

"N$"." 
GOTO 940 

PRINT "TIME HAS EXPIRED" 
FOR T*l TO 3000: NEXT T 
PRINT "CCLR3" 

PRINT TAB( 14) "TIME HAS EXPIRED." 
PRINT : PRINT "YOU GOT"G"GOLD 

PIECES": PRINT "CAPTAIN "N*"." 
POKE 198,0: PRINT 
: PRINT TAB< 10) "PLAY AGAIN 

(Y/N)"; 
INPUT Q* 
IF LEFT* CQ*,1)="Y" THEN 310 



^ 



^ 
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Master Code 



This short program is based on a popular board game. The computer invites you to break a 
secret code. When the four squares appear on the screen, you enter one number of code at a time. 
The number is between 1 and 5. A number may be repeated. 

A correct answer is indicated by an asterisk in that square. You have four tries to break the code. 
You win when you guess all four numbers in the code. 



Alteration— Make the game more difficult by 
changing the 5 in lines 220-250 to a larger 
number. This increases the range of numbers 
that the computer can use in its code. Also, 
indicate the new range by changing the PRINT 
statement in line 170. 



Alteration— Make the game easier by 
increasing the number of tries the user gets. 
For example, changing X in line 290 to FOR 
X=1 TO 5: PRINT L$;X allows the user five 
tries. 



100 
110 

120 



130 



140 

150 
160 

170 



180 



190 



200 
210 



220 
230 
240 
250 
260 

270 



280 



290 
300 
310 



REM MASTER CODE 

M**"CH0ME3CD0WN 53":L*=M*+"CD0WN 33 

[RIGHT 193" 

POKE 53281,1: PRINT "CCLR3CBLK3" 

: PRINT TAB< 14) "MASTER CODE" 

: PRINT : PRINT 

PRINT "I AM CATHY CRYPTIC, A 

CYBERNETIC CODEC SPACE 33 
GENERATING PROGRAM." 
PRINT "YOU ARE ABOUT TO ATTEMPT 

TO BREAK" 
PRINT "MY CODE.": PRINT 
PRINT "I WILL GENERATE FOUR 

SQUARES. EACH" 
PRINT "SQUARE WILL REPRESENT 

ONE NUMBER: C SPACE 731,2,3,4, 

OR 5.": PRINT 
PRINT "YOU WILL HAVE FOUR TRIES 

TO OBTAIN THECSPACE 23C0RRECT 

SEQUENCE.": PRINT 
PRINT "NUMBERS MAY BE USED MORE 

THAN ONCE.": PRINT : PRINT "HIT 

ANY KEY TO START." 
GET Q*: IF Q*«"" THEN 200 
PRINT "CCLR3": PRINT TAB( 
14) "MASTERCSPACE 23CODE": PRINT 
: PRINT 

<8)*5)+l 
<8)*5)+l 
<8)*5)+l 
(8)*5)+l 



E* 
B* 
C= 
D= 



INT ( 
INT < 
INT ( 
INT < 



RND 

RND 

RND 

RND 

PRINT TAB( 13)"ACSPACE 33BCSPACE 33 
CCSPACE 33D" 

PRINT TAB( 13) "CRVS0N3 CSPACE 23 
CRVSOFF 3 CSPACE 2 3++ CSPACE 23 
CRVS0N3+ CRVSOFF 3 CSPACE 23CRVSON3 
CSPACE 23CRVSOFF3" 
PRINT TAB( 13) "CRVS0N3 CSPACE 23 
CRVS0FF3 CSPACE 23++CSPACE 23 
CRVS0N3+ CRVSOFF 3 CSPACE 23CRVSON3 
±+ CRVSOFF 3" 

FOR X*l TO 4: PRINT L*jX 
IF W»E THEN 340 

PRINT L*: PRINT : PRINT TAB< 13)" 
CSPACE 23A";: INPUT W 
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320 IF W=E THEN PRINT M$: TABC 13)" 

CRVSON3**CRV50FF3" 

: PRINT TAB( 13) "CRVS0N3** 

CRVS0FF3 " 
330 PRINT L#s PRINT : PRINT TAB< 13)" 

CSPACE 73" 
340 IF V»B THEN 380 
350 PRINT L*: PRINT s PRINT TAB( 13)" 

CSPACE 23B";: INPUT V 
360 IF V»B THEN PRINT M*; TAB( 17)" 

CRV50N3**CRVSOFF3 " 

s PRINT TAB( 17)"CRVS0N3** 

CRVS0FF3" 
370 PRINT L*; PRINT : PRINT TABC 13)" 

CSPACE 93" 
380 IF Y=C THEN 420 
390 PRINT L*s PRINT : PRINT TABC 13) M 

CSPACE 23C";: INPUT Y 
400 IF Y»C THEN PRINT M*; TABC 21)" 

C RVSON 3 ** C RVSOFF 3 " 

: PRINT TABC 21) "CRVS0N3** 

CRVS0FF3" 
410 PRINT L*: PRINT : PRINT TABC 13)" 

CSPACE 63" 
420 IF Z-D THEN 460 
430 PRINT L*s PRINT : PRINT TABC 13)" 

CSPACE 23D";s INPUT Z 
440 IF Z=D THEN PRINT M$; TABC 25)" 

CRVSON3**CRVSOFF3" 

: PRINT TABC 25) "CRVS0N3** 

CRVS0FF3" 
450 PRINT L*: PRINT : PRINT TABC 13)" 

CSPACE 63" 
460 IF W=E AND V=B AND Y=C AND Z«D 

THEN 520 
470 NEXT X 
480 PRINT : PRINT : PRINT TABC 6) "YOU 

DID NOT BREAK THE CODE. " 
490 PRINT : PRINT TABC 8) "IT WAS 

a II a p II HDN II r> II II 1J 

500 PRINT 8 PRINT TABC 7) "HIT ANY 

KEY TO PLAY ASAIN. " 
510 SOTO 200 
520 PRINT : PRINT "CSPACE 43YOU 

BROKE THE CODE IN"X"TRIES! ! ! " 
530 GOTO 500 
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A Day At The Races 



You've gone to the dogs— the dog track that is. You and the computer can choose among four 
dogs racing toward the finish line. 

The program is complete with user-friendly features such as an introduction, a racing program, 
fun graphics and easy restart. It works great as is, but it's also fun to personalize. 



Alteration— Change the names and 
descriptions of the dogs in lines 270-460 and 
500 to match the names and characteristics of 
family and neighborhood dogs. 



100 REM A DAY AT THE RACES 
110 M=500s POKE 53281,11 
120 C*="DSPACE 53" 

130 C*(1,1)="CBLK3ESPACE 33CRVSON3vc" 
:C*(l,2>="Nr.RVS0N3 CRVSOFF31 
CRVSON3 "sC*(l,3>=" CRVSON3c 
CRVSOFF3 CRVSON3c" 
140 C*<2,1)="CYEL3CSPACE 331" 

:C*(2,2)«"NT.RVSON3 CRVSOFF32 
CRVSON3 l"sC*(2,3)=" CRVSON3c 
CRVSOFF3 CRVSON3c" 
150 C*(3,1)="CBRN3 ) b" 

:C*(3,2)»" CRVSON3 CRVSOFF33 
CRVSON3 l"sC*(3,3)=" k_ k" 
160 C*(4 f l>*"CWHITE3CSPACE 33CRVSON3 
vc"sC*(4,2)*"(+4+" 
:C*(4,3)=" CRVSON3cCRVSOFF3 
CRVSON3cCRVSOFF3 " 
170 PRINT "CCLR3CWHITE3" 

: PRINT "WELCOME TO UNCLE LOUIS' 
DOSTRACK, FINEST"; 
180 PRINT "DOSTRACK IN ARIZONA." 

: PRINT 
190 PRINT "I HOPE YOU'RE FEELING 

LUCKY TODAY. " 
200 PRINT "I HAVE SOME OF THE FINEST 

PUPS IN THE" 
210 PRINT "MICROCHIP WORLD JUST 

READY TO RUN THEIR PAWS OFF." 
220 PRINT : PRINT "SO MAKE YOURSELF 
AT HOME IN THE BOXCSPACE 53 
SEAT. " s PRINT 
230 PRINT "BY THE WAY YOU CAN CALL 

ME UNCLE LOUIS." 
240 INPUT "WHAT IS YOUR NAME"; N* 

: PRINT 
250 PRINT N*", WOULD YOU LIKE A 

PROGRAM";; INPUT P* 
260 IF LEFT* <P*,1K>"Y" THEN 470 
270 PRINT "CCLR31) CRVS0N3M0LLY 
CRVS0FF3: HUSKY MIXED BREED 
CAN REALLY" 
280 PRINT "CSPACE 33HAUL...HAS WON 
16 OUT OF 24" 
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290 PRINT "CSPACE 3D PROFESSIONAL 

RACES. THIS 7 YEAR OLD" 
300 PRINT "CSPACE 33HAS EXPERINCE, 

CONFIDENCE AND CLASS."; 
310 PRINT "CSPACE 43 A SURE BET IF 

SHE DOESN'T STOP ALONG"; 
320 PRINT "CSPACE 4 3 THE TRACK FOR 

A SNACK.": PRINT "CSPACE 330DDS 
: 2-1": PRINT 
330 PRINT "2) CRVSON3FELICECRVSOFF3 

THIS S YEAR OLD SHAGGY HAS" 
340 PRINT "CSPACE 33BEEN KNOWN TO 

FALL ASLEEP IN THE" 
350 PRINT "CSPACE 33MIDDLE OF THE 

TRACK. BUT WATCH OUT." 
360 PRINT "CSPACE 33THIS SLEEPER 

IS FULL OF SURPRISES." 
: PRINT "CSPACE 330DDS: 10-1" 
: PRINT 
370 PRINT "CSPACE 33HIT ANY KEY 

FOR NEXT PASE": PRINT 
380 GET Q*: IF Q$*"" THEN 380 
390 PRINT "3) CRVS0N3BAD DQGCRVS0FF3 

THIS GUY CAN RUN..." 
400 PRINT "CSPACE 3 3 UNFORTUNATELY, 

HE HAS BEEN KNOWN TO" 
410 PRINT "CSPACE 33THR0W A FEW 

RACES... HIS LICENSE IS" 
420 PRINT "CSPACE 330N PROBATION." 
: PRINT "CSPACE 330DDS: 4-1" 
: PRINT 
430 PRINT "4) CRVSON3BILLYCRVSOFF3 

THIS PUP HAS SPEED, PEP, AND 
CSPACE 23"; 

MORE-> 
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Alteration— The variables in line 510 control 
the relative speeds of the dogs. The lower the 
number, the faster the dog. For example, 
changing 6(1 ) to 0(1 )=.85 will make dog 
#1, Molly, faster. 



440 PRINT "CSPACE 43VITALITY. . . IF 

HE RUNS IN THE RIGHT" 
450 PRINT "CSPACE 33DIRECTION. HE 

IS A REAL THREAT." 
460 PRINT "CSPACE 33FIRST PROFESSIONAL 
RACE."! PRINT "CSPACE 330DDS 

: 7:1" 
470 PRINT : PRINT : PRINT TAB< 7) "HIT 

ANY KEY TO START" s PRINT 
480 GET Q*s IF 0*="" THEN 480 
490 PRINT "CCLR3": PRINT "PLACE 

YOUR BET BY SELECTING NUMBER." 

: PRINT 
500 D* ( 1 ) *"MQLLY" s D* <2> ="FELICE" 

s D* <3> *"BAD DOG" : D* (4) *"BILLY" 
510 0<1)=. 95:0(2)*. 98:0(3)*. 96 

: 0(4) =.97 
520 FOR X=l TO 4: PRINT X") "D*(X) 

: PRINT : NEXT X 
530 INPUT "WHICH DQG";S 
540 IF S>4 OR S<1 THEN 490 
550 PRINT : PRINT "YOU HAVE *"M 
560 PRINT "HOW MUCH DO YOU WANT 

TO BET";: INPUT B 
570 IF B>M THEN PRINT "SORRY YOU 

DO NOT HAVE CREDIT": GOTO 550 
5S0 A*(i)*"CH0ME3CDQWN 23" 

:A*(2)=A*(1)+"CD0WN 53" 

:A*(3)*A*(2)+"CD0WN 53" 
590 FOR X=l TO 4:B*(X)*"CRIGHT3" 

: NEXT X 
600 A*(4)*A*(3)+"CD0WN 53" 
610 T*="CDOWN 43 CRVSON3CBLK3 CSPACE 363 

CRVS0FF3" 
620 PRINT "CCLR3"; TAB( 15)"CRVSQN3 

RACE TRACKCRVS0FF3": PRINT 
630 FOR X*l TO 22: PRINT TAB( 36)" 

CRED3CRVSON3 CRVS0FF3": NEXT X 
640 PRINT A*(l)jT*: PRINT A*(2);T* 

: PRINT A*(3);T$: PRINT A*(4);T* 
650 FOR X*l TO 4: PRINT A*(X) 

: FOR Y*l TO 3: PRINT B*(X);C*(X, 

Y): NEXT Y f X 
660 FOR X*l TO 4: PRINT A*(X) 

: FOR Y*l TO 3: PRINT B*(X)?C* 

: NEXT Y 
670 IF RND (8)>.6 THEN B*(X)=B*(X)+" 

CRIGHT3" 
680 IF RND (8)>0(X) THEN 

B*(X)*B*(X)+"CRIGHT3" 
690 PRINT A*(X): FOR Y*l TO 3 

: PRINT B*(X);C*(X,Y): NEXT Y 
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700 



710 
720 



730 

740 
750 



760 
770 
780 
790 
800 
810 
820 



830 



IF LEN <B$(X>>>30 THEN PRINT ■ 
CHOME3CDOWN3CWHITE3#"X;D*(X) " 



GOTO 720 

SOTO 650 

TO 3000: NEXT T 

"CCLR3": PRINT 

TAB< 7) ,, # ,, X;D*<X> ,, WINS!" 



WINS" 
NEXT Xs 
FOR T=l 
: PRINT 
s PRINT 
: PRINT 

PRINT TAB( 7>;N*" BET ON #"Ss 
D*<S>: PRINT 
IF S=X THEN 770 

PRINT TAB< 7>N*" LOSES *"B:M=M-B 
: IF M<*0 THEN PRINT TAB( 7>N* M 



IS BROKE!" 
GOTO 820 
IF S=l THEN 
IF S=2 THEN 
IF S«3 THEN 
IF S*4 THEN 
PRINT 
PRINT 



END 



B=B*2 

B=B*10 

B=B*4 

B«B*7 
TAB< 7)N*" WINS 
: PRINT : INPUT 



*"B:M= 
"PLAY 



'M+B 



,nyi 



AGAIN" ;P*: IF LEFT* (P*,l>< 
THEN PRINT : GOTO 470 
PRINT s PRINT : PRINT TAB( 7)N* H 

LEFT THE TRACK WITH *"M 
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Lost Dutchman Mine 



Here's a game based on an Arizona folk tale about the disappearance of a Dutch prospector in 
the Superstition mountains. The game is an adventure maze with more than one screen display. 
You move through the first maze picking up gold pieces (.) and searching for clues (?) to the 
hidden treasure of the mine. But you're constantly being chased by ghosts of lost prospectors. The 
game ends if one catches you. 

When you touch the correct clue, you've found the secret treasure stash. You then find yourself 
in a new room. The treasure is in clear sight, but it's protected by the Dutchman's ghost. If you 
reach the treasure, you receive 10 times the amount of gold collected in the first maze. 



100 REM LOST DUTCHMAN MINE 

110 GOSLIB 710 

120 SR»0:GL«2020 

130 PRINT "CH0ME3CRIGHT 143SCORE: "SR 

140 JY= PEEK (56321) :JY=15-<JY AND 15) 

:K» PEEK (197) :J« PEEK <653):AL»L 
150 POKE L,32: IF JY*1 OR JY=5 OR 

JY»9 OR (K«7 AND J»l) THEN 

AL«AL-40 
160 IF JY«2 OR JY»6 OR JY-10 OR <K*7 

AND J»0) THEN AL-AL+40 
170 IF <JY>3 AND JY<7) OR <K=2 AND 

J«l) THEN AL-AL-1 
180 IF JY>7 OR (K»2 AND J=0) THEN 

AL-AL+1 
190 IF PEEK 
200 IF PEEK 
210 IF PEEK 
220 IF PEEK 

: 

i 



(ALKM60 THEN L=AL 
<L)*G THEN 380 
(L)=46 THEN SR*SR+1 
<L)«CL THEN SR=SR+100 

PRINT "CHQME3FIND ROOM" 

FOR T-l TO 999» NEXT 



230 IF PEEK (L)«CL THEN PRINT "CH0ME1 

[SPACE 103" 
240 IF L-RL THEN 520 
250 IF L«GL THEN 630 
260 POKE L,I:LY« INT (<L-S>/40) 

:LX-L-S-LY*40 
270 NG-3J IF RL«2020 THEN NG*1 
280 FOR X»l TO NQxM«6(X): POKE M,32 
290 GY* INT ((M-S)/40):GX»M-S-GY*40 
300 IF GX<LX AND < PEEK (M+1X50 OR 

PEEK (M+D-I) THEN M»M+1 
310 IF GX>LX AND ( PEEK (M-1X50 OR 

PEEK (M-1)»I) THEN M»M-1 
320 IF GY>LY AND ( PEEK (M-40X50 OR 

PEEK <M-40)«I) THEN M-M-40 
330 IF GY<LY AND ( PEEK (M+40X50 OR 

PEEK (M+40)«I) THEN M-M+40 
340 G<X)*Mi POKE M,G» IF G«65 THEN 

G«88: GOTO 360 
350 IF G»88 THEN G«65 
360 IF M«L THEN 380 
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370 NEXT X: GOTO 130 

380 S0=54272: FOR X=0 TO 24 

: POKE SO+X,0: NEXT X 
390 POKE SO+14,5: POKE S0+1B,16 

: POKE S0+3,l: POKE SO+24,143 
400 POKE SO+6,240: POKE SO+4,65 
410 POKE 53280,2: Fl-5389 

s FOR X»0 TO 119:F«F1+ PEEK 

( SQ+27 ) *3 ■ 5 
420 H« INT (F/256>:L«F-H*256 
430 IF INT <X/10>/2« INT < INT 

<X/10)/2) THEN POKE 53280,2 

: POKE 53281,2 
440 IF INT <X/10>/2<> INT < INT 

<X/10)/2) THEN POKE 53280,14 

: POKE 53281,1 
450 POKE SO,L: POKE S0+1,H: NEXT X 
460 POKE SO+24,0 
470 FOR X=l TO 2000: NEXT X 
480 PRINT "CCLR3": PRINT : PRINT 
490 PRINT "YOU LOSE!": PRINT "MY 

BHOST GOT YOU!" 
500 PRINT : PRINT "HA HA HA HA HA!" 
510 GOTO 680 
520 PRINT "CCLR1": PRINT "CBLK3 

CRVSONKSPACE 183" 
530 FOR X=l TO 12: PRINT " CRVS0N3 

"; TAB< 18);"CRVSON3 ": NEXT X 
540 PRINT "CBLK3 CRVSONKSPACE 183" 
550 S=1106:B»160:BX-49 

MORE-* 
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560 FDR X=0 TO BX: POKE S+40* INT < 

RND (8)*12)+ INT < RND <8)*17>,B 

: NEXT X 
570 FOR X=55296 TO 56295: POKE X,0 

: NEXT X 
5B0 GL»S+40* INT ( RND <B)*12)+ INT ( 

RND <8>*17): POKE GL,164 
590 G=S8: FOR X=l TO 3:G<X>=1513 

: NEXT X:L=S+8 
600 FOR X=l TO 3a POKE G(X>,G: NEXT X 

s POKE L,I 
610 RL*2020 

620 FOR T»l TO 2500: NEXT T: GOTO 130 
630 FOR X*l TO 2000: NEXT X 
640 PRINT "CCLR3": PRINT : PRINT 
650 PRINT TABC 11>"Y0U FOUND THE 

GOLD!": PRINT : PRINT 
660 PRINT TAB (.11) "FINAL SCORE: "SR* 10 
670 PRINT : PRINT 
680 POKE 198,0: PRINT TAB( 14) "PLAY 

AGAIN";: INPUT Q* 
690 IF LEFT* <Q*,1)*"Y" THEN 110 
700 END 

710 PRINT "CCLR3CBLK3": POKE 53281,1 
720 PRINT "CSPACE 53CRVSON3LOST 

DUTCHMAN MINE ADVENTURE": PRINT 
730 PRINT "SOME TIME AGO, IN 

ARIZONA'S SUPERSTITION"; 
740 PRINT "MOUNTAINS, THE GOLD OF 

THE LOST" 
750 PRINT "DUTCHMAN WAS LOST IN A 

CAVE.": PRINT 
760 PRINT "AS YOU SEARCH THE CAVES 

BE SURE TO" 
770 PRINT "AVOID THE GHOSTS < _X> . " 

: PRINT 
780 PRINT "COLLECT DOTS FOR POINTS 

AND THE" 
790 PRINT "MYSTERIOUS CLUES (CRVS0N3? 

CRVS0FF3) TO HELP YOU ONCSPACE 53 

THE WAY": PRINT 
800 PRINT "USE A JOYSTICK OR THE 

CURSOR KEYS TQCSPACE 43MOVE. " 
810 PRINT : PRINT "ENTER YOUR FIRST 

INITIAL." 
820 GET I*: IF I**"" THEN 820 
830 IF ASC <I*><65 OR ASC <I*>>90 

THEN 820 
840 PRINT "CCLR3": PRINT "CBLK3 

CRVSON 1 CSPACE 373" 
850 FOR X*l TO 19: PRINT " CRVS0N3 

"; TABC 37);"CRVS0N3 ": NEXT X 
860 PRINT " CRVS0N3 CSPACE 373" 
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Alteration— Change the number of barriers by 
changing the value of BX in line 880. 

Alteration— Change the number of gold pieces 
in the first maze by changing the value of C in 
line 880. 



870 S=1106:B=160:G=146:CL=191 

:I= ASC (I*) -64 
880 BX=249:C=99 
890 FOR X=55296 TO 5629S: POKE X,0 

: NEXT X 
900 FOR X»0 TO BX: POKE S+40* INT < 

RND <8)»19>+ INT < RND <8>*35>,B 

: NEXT X 
910 FOR X«0 TO C: POKE S+40* INT < 

RND <8)*19>+ INT < RND <8>*35>,46 

: NEXT X 
920 FOR X*0 TO 3:RL*S+40* INT ( RND 

<8)*19)+ INT < RND <8>*35) 

: POKE RL,CL: NEXT X 
930 G*88:GU)»1428:G<2>»1458:G<3)*1764 

:L*S+18 
940 FOR X*l TO 3: POKE G<X),G: NEXT X 

s POKE L,I 
950 RETURN 
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Some experts say that our lives are governed by three regular cycles: physical (23 days), 
emotional (28 days) and intellectual (33 days). This fun program calculates your current status on 
each cycle, telling you about yourself today, yesterday or tomorrow! 

First, you're instructed to enter any date for which you want your biorhythm calculated. Then 
you enter your date of birth. Months are spelled out. Days and years are entered as numbers. 

The program calculates how many days you've been alive between the first date entered and 
your date of birth. Then it calculates your biorhythm and displays results for each cycle— physical, 
emotional and intellectual— in a bar chart. If you're in the first half of the cycle, you're in the up 
phase. The second half of the cycle is the down phase. Results are accurate to within one day for any 
two dates in the 20th Century. 



100 REM BIORHYTHM 

110 DIM M*<12> 

120 FOR X»l TO 12: READ M*<X>: NEXT X 

130 PRINT "CCLRKWHITEa": PRINT "THE 

THEORY OF BIORHYTHMS STATES 

THAT" 
140 PRINT "EACH PERSON HAS THREE 

PSYCHOLOGICALCSPACE 53CYCLES 

WHICH ARE RELATED TO" 
150 PRINT "THEIR PHYSICAL, EMOTIONAL, 

ANDCSPACE 103 INTELLECTUAL 
STATES. " 
160 PRINT : PRINT "THESE CYCLES 

ARE SAID TO BEGIN AT BIRTH." 
170 PRINT "THE PHYSICAL IS 23 DAYS 

LONG. " 
180 PRINT "THE EMOTIONAL IS 28 DAYS 

LONG. " 
190 PRINT "THE INTELLECTUAL IS 33 

DAYS LONG."! PRINT 
200 PRINT "THE FIRST HALF OF THE 

CYCLE IS SAID TO C SPACE 2 1 BE 

AN UP TIME AND THE SECOND "; 
210 PRINT "HALF ISCSPACE 41SAID 

TO BE A DOWN TIME. " 
220 PRINT "THE MID POINT IS CALLED 

A CRITICAL DAY." 
230 FOR T»l TO 1500s NEXT Tx PRINT 

l PRINT 
240 INPUT "ENTER BIRTH MONTH (SPELL 

IT)";M1* 
250 FOR Ml*l TO 12: IF LEFT* <M1*,3>» 

LEFT* (M*(M1),3) THEN 270 
260 NEXT Ml: PRINT "NO SUCH MONTH" 

l GOTO 240 
270 INPUT "ENTER BIRTH DAY";D1 

: IF Dl>31 THEN 270 
280 INPUT "ENTER BIRTH YEAR";Y1 
290 PRINT : PRINT 
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300 INPUT "TODAY'S MONTH (SPELL 

IT)":M* 
310 FOR M=l TO 12: IF LEFT* <M#,3>« 

LEFT* <M*<M>,3) THEN 330 
320 NEXT Ms PRINT "NO SUCH MONTH" 

s GOTO 300 
330 INPUT "TODAY'S DAY";D 

8 IF D>31 THEN 330 
340 INPUT "TODAY'S YEAR";Y 
350 F« < Y-Yl ) *365. 25: H» (M-Ml ) *30. 42 

: J=D-Dl 
360 X» INT <F+H+J)-2 
370 P*(X/23- INT <X/23>)*23 
380 E=(X/2B- INT <X/28>>*28 
390 I=<X/33- INT <X/33>>*33 
400 PRINT "CCLR3 BIORHYTHM FOR "M*""j 

D;","Y: PRINT 
410 PRINT : PRINT "YOU HAVE BEEN 
ALIVE"X"DAYS. ": PRINT 

MORE- 
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Alteration— Change the graphics character in 
the bar chart from a square to any other 
character. Do this in lines 430, 450 and 470. 

Alteration— Add a routine that interprets the 
results of the biorhythm calculation. For 
example, a statement might say IT LOOKS 
LIKE A GREAT DAY FOR YOU 
EMOTIONALLY AND 
INTELLECTUALLY. PHYSICALLY, 
YOU'RE IN TROUBLE! 



420 PRINT "CRVSON3PHYSICAL CYCLE" 

: PRINT "CSPACE 43"; 
430 FOR X=0 TO Ps PRINT "CRVSON3 
";: NEXT X: PRINT "CLEFT 33" 

INT (P+.5) 
440 PRINT s PRINT : PRINT "CRVSON3 

EMOTIONAL CYCLE": PRINT "CSPACE 43 

"; 

450 FOR X*0 TO Es PRINT "CRVSON3 
":: NEXT X: PRINT "CLEFT 33" 

INT (E+.5) 
460 PRINT s PRINT a PRINT "CRVSON3 

INTELLECTUAL CYCLE" 

s PRINT "CSPACE 43"; 
470 FOR X*0 TO I: PRINT "CRVS0N3 
";: NEXT Xs PRINT "CLEFT 33" 

INT <I+.S) 
480 PRINT : PRINT : PRINT "HIT ANY 

KEY FOR NEW BIORHYTHM" 
490 GET Q*a IF Q*»"" THEN 490 
500 GOTO 290 
510 DATA J AN, FEB, MAR, APR, MAY, JUN, JUL, 

AUG , SEP , OCT , NOV , DEC 
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Queen Of The Nile 



Journey through Cleopatra's tomb in search of ancient treasure. Your time is limited to two 
minutes, and the dangers are many. But clever action will bring you rewards. 

Control your progress through the burial maze by using a joystick or the cursor keys to move 
yourself (U) to the treasure ($). By pressing the fire button or space bar, you can blast through walls 
with dynamite. But be careful because your supply of dynamite is limited. You may destroy treasure 
too! 

If you run into a snake pit (S) or mummy (M) , the game ends. 



Alteration— Decrease or increase the amount 
of dynamite by changing the value of D in line 
130. 



Alteration— Increase the number of walls by 
changing line 160 to IF RND(9)> .4 THEN 
POKE X,1 60: POKE X+CO.O 



100 REM QUEEN OF THE NILE 

110 FOR X=0 TO S: READ L<X)s NEXT X 

120 GOSUB 530 

130 PRINT "CCLR1CWHITE3":C0«54272 

: UL=1884: UC=21 : D=9: G=0: FL«0 
140 FOR X» 1064 TO 1103; POKE X,160 

s POKE X+C0,0: NEXT X 
150 FOR X=1104 TO 1863: IF RND <B>>.8 

THEN POKE X,46s POKE X+C0,7 
160 IF RND (7)>.5 THEN POKE X,160 

: POKE X+C0,0 
170 NEXT X 
180 FOR X=0 TO 9: M= INT < RND 

<9>*600>+1144s POKE M,13 

s POKE M+C0,1: NEXT X 

MORE- 
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Alteration— Changing the equation for G in 
line 370 changes the value of the treasure. For 
example, G=G+INT(RND(8)* 20)* 
1 000+20000 makes the treasure more 
valuable. 

Alteration— Changing Tl in line 380 to 
Tl> 1 0800 allows a three-minute time limit. 



190 FOR X=0 TO 9:S= INT ( RND 

(9)*600)+U44: POKE S,19 

: POKE S+CQ,5s NEXT X 
200 FOR J«l TO 6 
210 TR- INT < RND (9)*480)+1144:F=0 

: FOR X*0 TO B:A« PEEK (TR+L<X)> 

: IF A*13 OR A-19 THEN F»l 
220 NEXT X: IF F»l THEN 210 
230 TR(J)*TR: POKE TR,36 

s POKE TR+C0,7s NEXT J 
240 TIS^'OOOOOO" 
250 K* PEEK (197): J* PEEK (653) 
260 PRINT "CH0ME3TIMEs" MID* (TI*,4, 

1) m j" RIGHT* (TI*,2)"CSPACE 43 

GOLD *" STR* <G); 
270 PRINT "CSPACE 23DYNAMITE " STR* 

<D)+" " 
280 JY- PEEK (56321) :FI«JY AND 16 

:JY=15-(JY AND 15):TL*UL 

: POKE UL,32 
290 IF UL>1064 AND (JY=1 OR JY«5 OR 

JY=9 OR (K»7 AND J*l)) THEN 

UL*UL-40: GOTO 330 
300 IF UL<1904 AND (JY«2 OR JY»6 OR 

JY*10 OR (K»7 AND J*0) ) THEN 

UL*UL+40: GOTO 330 
310 IF ULM064 AND ( ( JY>3 AND JY<7) 

OR (K*2 AND J«l)) THEN UL-UL-1 
320 IF UL< 1944 AND (JY>7 OR (K=2 AND 

J»0>) THEN UL»UL+1 
330 P* PEEK (UL): IF P-160 THEN UL»TL 
340 IF P»13 THEN E*»"MY MUMMY GOT 

YOU! ! !"jFL*1: GOTO 470 
350 IF P«19 THEN E$«"YOU FELL INTO 

A SNAKE PIT! ! !"sFL»l; GOTO 470 
360 IF P»46 THEN G*G+100 
370 IF P*36 THEN G*G+ INT ( RND 

(8) *10) *1000+10000 
380 IF TI>7200 THEN E*»"TIME HAS 

EXPIRED"! GOTO 470 
390 IF RND (8X.2 THEN M- INT ( RND 

(9)*600)+1144: IF PEEK (M)<>32 

THEN 390 
400 POKE M,160: POKE M+CO,0 
410 POKE UL,UC: POKE UL+CO.l 

I IF D>0 AND (K-60 OR K*15 OR 

FI016) THEN 430 
420 GOTO 250 
430 FOR E»0 TO 8s POKE UL+L(E),32 

t NEXT E:D«D-1 
440 S«54272x FOR L«S TO S+24 

s POKE L,0» NEXT l POKE S+5,15 

I POKE S+6,15x POKE S+24, 15 
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450 POKE S+1,5: POKE S f 235 

: POKE S+4,129: POKE S+4,128 
: POKE UL,UC: FOR T=0 TO 2000 
: NEXT T 
460 GOTO 250 
470 FOR T=l TO 2000: NEXT T 

: POKE 198,0: PRINT "CCLR3" 
: PRINT : PRINT TAB< 20- LEN 
<E$)/2);E* 
480 IF FL»1 THEN 500 
490 PRINT : PRINT "CSPACE 23 YOU 

COLLECTED *" 8" WORTH OF GOLD!" 
s PRINT 
500 PRINT : PRINT TAB< 13) "PLAY 

AGAIN ";: INPUT Q* 
510 IF LEFT* (Q*,1)="Y" THEN 130 
520 END 
530 POKE 53281,12: PRINT "CCLR3 

CWHITE3": PRINT TAB( 12) "QUEEN 
OF THE NILE" 
540 PRINT : PRINT "USE JOYSTICK 

OR CURSOR KEYS TO MOVE." 
550 PRINT "PRESS FIRE BUTTON OR 
SPACE BAR TO BLAST THROUGH 
WALLS. ": PRINT 
560 PRINT "YOU HAVE TWO MINUTES 

TO GATHER TREASURE." 
570 PRINT "SYMBOLS:": PRINT 

: PRINT " CYEL3*CWHITE3 - 
TREASURE": PRINT 
580 PRINT " CYEL3.CWHITE3 » GOLD 
PIECE": PRINT : PRINT " M - 
MUMMY": PRINT 
590 PRINT " CGRN3SCWHITE3 « SNAKE 
PIT": PRINT : PRINT " CBLK3 
[RVS0N3 CRVSOFF3CWHITE3 « WALL" 
: PRINT 
600 PRINT : PRINT "HIT ANY KEY TO 

START" 
610 GET Q*: IF Q*«"" THEN 610 
620 RETURN 
630 DATA -41,-40,-39,-1,0,1,39,40,41 
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Thin Ice 

Don your wool cap and grab your pole and auger because it's time to do some ice fishing on 
Ted's pond. Due to some recent warm weather, there are spots of thin ice. Avoid them because 
unusual dangers lurk below. Get as many fish as you can before time runs out or you fall in. Hint: 
Pick up fish with your mouth. 



Alteration— Change the graphics symbol in 
line 290 to create a different kind offish. 



100 
110 

120 

130 

140 
150 

160 

170 

180 

190 

200 

210 

220 

230 

240 



250 
260 
270 

280 
290 

300 
310 
320 

330 

340 
350 

360 
370 



PRINT 
FISH. 
PRINT 



REM THIN ICE 

POKE 53281,1: POKE 53280,6 

s DIM F<16,20) 

PRINT "CCLRKBUOWELCOME TO 

TED'S POND": PRINT 
PRINT "THE POND IS FROZEN OVER 

FOR THE FIRST" 
PRINT "TIME THIS SEASON.": PRINT 
"YOU ARE INVITED TO ICE 

"BE CAREFUL THOUGH, THIS 

WARM SPELL" 
PRINT "MIGHT HAVE CAUSED SOME 

SPOTS OF" 
PRINT "CRVS0N3THIN ICECRVS0FF3. " 
: PRINT 
PRINT "SKATE BY USING THE CURSOR 

KEYS.": PRINT 
PRINT "YOU GET POINTS BY PICKING 

UP FROZEN" 
PRINT "FISH <A) AND BY NOT 
GETTING INJURED." 
PRINT : PRINT "HIT ANY KEY TO 

START. " 
GET Q*: IF Q*="" THEN 230 
P* ( 1 ) -■ CBLK3 W" : P* (2) *" CREDK+>" 
: P* (3) -" CBLK3 CRVS0N3 vCRVS0FF3 

CRVS0N3c" 
E*»"CSPACE 33" 
V*=" CH0ME3 " : H*=" CRIGHT3 " 
PRINT "CCLR3": FOR X*l TO 15 
: PRINT " "; 
FOR Y=l TO 20:F(X,Y)=0 
IF RND (SX.3 THEN PRINT "CBLU3 
A";:F(X,Y)»1: GOTO 310 
PRINT " "; 

IF RND <8X.01 THEN F(X,Y)=2 
IF RND (8X.004 THEN F(X,Y)=3 
: PRINT "CLEFT!*"; 
IF RND (8X.001 AND F(X,Y)=1 
THEN F<X,Y)=4 
NEXT Y: PRINT " ": NEXT X 
PRINT V*: FOR 1=1 TO 3 
: PRINT H*;P*(I): NEXT I 
X*l : Y=2: S=0: TI*="000000" 
GET Q* 
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Z/if 




Alteration— Add a splashing sound when the 
user falls through the ice, line 550. 



380 PRINT "CHOME3CDOWN 43CRIGHT 213 

TIME : "; 
390 PRINT MID* <TI*,4,1>" 

:" RIGHT* <TI*,2> 
400 PRINT V*: FOR I»l TO 3 

: PRINT H*;E*: NEXT 
410 IF Q*="CD0WN3" AND X<15 THEN 

V*=V*+Q*:X»X+1 
420 IF Q*="CUP3" AND X>1 THEN V** 

LEFT* (V*, LEN <V*>-1> :X»X-1 
430 IF Q*="CRIGHT3" AND Y<20 THEN 

H*=H*+Q*:Y=Y+1 
440 IF Q*="CLEFT3" AND Y>1 THEN H*« 

LEFT* (H* f LEN (H*)-l) : Y=Y-1 
450 PRINT V*: FOR 1*1 TO 3 

: PRINT H*;P*<I): NEXT I 
460 F=F<X,Y>: IF F»l THEN S*S+10 

:F(X Y) K 
470 IF F=2 THEN PRINT "CH0ME3THE 
ICE NEARLY BROKE !": S*S+500 

: FOR T=l TO 1000: NEXT T 
480 IF F*2 THEN PRINT "CH0ME3500 
POINT BONUS. CSPACE 53" 

s FOR T*l TO 1000: NEXT T 
490 IF F=2 THEN PRINT "C HOME 3 CSPACE 173 

":F<X,Y>*0 
500 IF F=4 THEN 630 
510 IF F*3 THEN 550 
520 PRINT "CH0ME3CD0WN 33CRIGHT 223 

SCORE:" STR* <S> 
530 IF TI>7200 THEN 590 
540 GOTO 370 
550 PRINT "CCLR3": POKE 53281,6 

s FOR T*l TO 999: NEXT T 
560 POKE 53281,1: PRINT s PRINT 
570 PRINT "YOU JUST BECAME SHARK 

MEAL ! " 
580 S=0: GOTO 670 
590 PRINT "CCLR3": PRINT : PRINT 
600 PRINT "TIME HAS EXPIRED" 
610 FOR T=l TO 999: NEXT T 
620 GOTO 670 

630 PRINT "CCLR3": PRINT : PRINT 
640 PRINT "YOU JUST CAUGHT A SCHOOL 

OF FISH!" 
650 PRINT : PRINT "IT'S A MIRACLE! 

YOU WIN!" 
660 S«S*3 

670 PRINT : PRINT : PRINT 
680 PRINT "FINAL SCORE«"S 
690 POKE 198,0 

700 PRINT : INPUT "PLAY AGAIN":Q* 
710 IF LEFT* <Q*,1)*"Y" THEN 260 
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Bomb Squad 



You're the expert working against the clock, trying to find a ticking bomb hidden in a 
million-room tower! You have 250 seconds to find the bomb. Each move takes exactly 10 seconds. 
To help, you have a bomb-sensitive device that gives a stronger readout as you approach the bomb. 

You determine the location of a room by entering values from to 99 for length, width and 
height. Your device then gives a readout that indicates how close you are to the bomb. 10,000 is the 
highest readout. A correct value for length, width or height is indicated by double asterisks in place 
of the number entered. 

If you don't find the bomb in 250 seconds, it explodes. If you do find the bomb, you have an 
additional 100 seconds to defuse it. Guess the three-number combination in the same way you 
found the room. Enter values from 1-10. 



Alteration— If you make the game easier or 
more difficult, be sure to change the 
instructions in lines 110 to 180. Also, to make 
the game less violent, change its name to 
Treasure Hunt. Change the statements that 
give the user instructions and commentary. 
The new statements should discuss finding a 
hidden treasure chest. When the chest is 
found, the user has to open the padlock. 



Alteration— To make the game easier, try 
decreasing the number of rooms by changing 
INT(RND(8)* 1 0O) for variables A, B and C 
to INT(RND(8)* 50) in line 220. 



100 REM BOMB SQUAD 
110 PRINT "CCLR3YOU ARE ABOUT TQ 
ACCEPT A DANGEROUS CSPACE 53 
MISSION. " 
120 PRINT : PRINT "A BOMB IS HIDDEN 

IN ONE ROOM OF ACSPACE 73MILLION 
ROOM TOWER." 
130 PRINT : PRINT "ENTER ROOM NUMBER 
BY LENGTH, WIDTH, AND HEIGHT 
(0-99) . " 
140 PRINT "A CRVSON3#*CRVSOFF3 SHOWS 

A CORRECT ENTRY.": PRINT 
150 PRINT "YOU HAVE 250 SECONDS 
TO FIND THE BOMBCSPACE 330R 
IT WILL EXPLODE.": PRINT 
160 PRINT "YOUR LOCATION BEACON 

WILL GIVE A" 
170 PRINT "STRONGER SIGNAL AS YOU 

APPROACH THE BOMB" 
180 PRINT : PRINT "WHEN YOU FIND 

THE BOMB YOU HAVE 100CSPACE 53 
SECONDS TO DEFUSE IT." 
190 PRINT : PRINT "PRESS ANY KEY 

TO START GAME.": PRINT 
200 GET Q*: IF Q**"" THEN 200 
210 S1»36878:S2*36877 
220 A* INT ( RND <8>*100) 
:B» INT ( RND (8) #100) 
:C* INT < RND (8)*100) 
230 PRINT "CCLR3":S»10 
240 PRINT "CHOME3CDOWN 830CSPACE 231 
CSPACE 232CSPACE 233CSPACE 234 
CSPACE 235CSPACE 236CSPACE 237 
CSPACE 238CSPACE 239CSPACE 2310" 
250 PRINT " C HOME 3 E DOWN 93 qrr+rr+rr+rr+ 

rr+rr+rr+rr+rr+i-rw " : PRINT 
260 PRINT " qee+ee+ee+ee+ee+ee+ee+ee+ee 
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270 PRINT "CSPACE 103B0MB DETECTOR 

C HOME 3" 
280 PRINT " LCSPACE 33WCSPACE 33H 

CSPACE 33TIMECSPACE 33BEAC0N" 

: PRINT 
290 IF A*L THEN 330 
300 PRINT " C HOME 3 C DOWN 53" 

s INPUT "LENGTH" ;L 
310 PRINT " C HOME 3 C DOWN 63 CSPACE 123" 

: IF L>99 OR L<0 THEN 300 

320 PRINT "CHQME3CD0WN 33" STR* <L)+" 
ii 

330 IF B»W THEN 370 

340 PRINT " C HOME 3 C DOWN 53" 

: INPUT "WIDTH" ;W 
350 PRINT "CH0ME3CD0WN 63 CSPACE 123" 

s IF W>99 OR W<0 THEN 300 
360 PRINT "C HOME 3 CSPACE 43CD0WN 33" 

STR* <W>++" " 
370 IF C*H THEN 410 
380 PRINT " C HOME 3 C DOWN 53" 

8 INPUT "HEIGHT" ;H 
390 PRINT "CH0ME3CDQWN 63 CSPACE 123" 

8 IF H>99 OR H<0 THEN 300 
400 PRINT "CH0ME3 CSPACE 83CD0WN 33" 

STR* <H>+" " 
410 PRINT "CH0ME3 CSPACE 123CDOWN 33 "S 

MORE- 
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Alteration— To make the game easier, give 
yourself more time to find the bomb by 
changing S in line 510 to S=S+1 0: IF 
S< 300 THEN 290. 



420 PRINT "CHOME3CDOWN 103"; TAB< J)" 



430 
440 

450 

460 
470 

480 

490 

500 
510 
520 
530 

540 
550 

560 

570 

580 

590 
600 

610 

620 
630 
640 

650 

660 

670 

680 
690 
700 

710 



BE=lE4-< ABS <A-L>+ ABS (B-W)+ ABS 

<C-H)>*29 

J= INT (BE/333. 3333+. 5) 

: PRINT "CH0ME3CD0WN 103"; TAB( 
jj. i am 

PRINT "CH0ME3CSPACE 193CDOWN 33 

"BE 

PRINT "CH0ME3CD0WN 33"; 

IF A=L THEN PRINT TAB< 1)"CRVS0N3 

**CRVS0FF3"; 

IF B=W THEN PRINT TAB( 5>"CRVS0N3 

**CRVS0FF3"; 

IF C=H THEN PRINT TAB( 9>"CRVS0N3 

**CRVS0FF3" 

IF A=L AND B=W AND OH THEN 550 

S*S+10: IF S<260 THEN 290 

QOSUB 900 

PRINT "BOMB WAS AT": PRINT A;" 

it . ii ii . p . ii ii . r> 

END 

PRINT "CCLR3CD0WN 93CSPACE 143 

CRVSQNIBOMB LOCATED CRVSOFF 3" 

V= INT ( RND (8)*10)+1 

sN= INT < RND <8>*10)+1 

:M= INT ( RND (8)*lO)+l 

FOR TT*1. TO 2000: NEXT 

PRINT "CCLR3Y0U HAVE LOCATED 

THE BOMB.": PRINT 
PRINT "YOU MUST NOW DEFUSE IT 

ENTER THE CORRECTCQMBINATION. " 
: PRINT 
PRINT "EACH PART IS FROM 1 TO 

10. A CORRECTCSPACE 43NUMBER 

IS DICTATED BY A CRVS0N3** 
CRVSOFF 3." 
PRINT : PRINT "GOOD LUCK. YOU 

HAVE ONLY 100 SECONDS" 
FOR TT=1 TO 4000: NEXT TT 
PRINT "CCLR3":S=10 

PRINT " LEFT [SPACE 43RIGHTCSP ACE 43 
LEFTCSPACE 43TIME": PRINT 
IF A»V THEN 690 
PRINT " C HOME 3 C DOWN 53" 
: INPUT "LEFT "; A 

PRINT "CH0ME3CD0WN 63CSPACE 123" 
: IF A>10 OR A<1 THEN 660 
PRINT "CH0ME3CD0WN 33 "A 
IF B=*N THEN 730 
PRINT "CH0ME3CD0WN 53" 
: INPUT "RIGHT" ;B 
PRINT "CH0ME3CD0WN 63CSPACE 123" 
: IF B>10 OR B<1 THEN 660 
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720 PRINT "CH0ME3 CSPACE 83CD0WN 33 "B 

730 IF C=M THEN 770 

740 PRINT "CH0ME3CD0WN 53" 

: INPUT "LEFT"sC 
750 PRINT "CH0ME3CD0WN 63 CSPACE 123" 

: IF 010 OR C<1 THEN 740 
760 PRINT "CH0ME3 CSPACE 173CD0WN 33 "C 
770 PRINT "C HOME 3 CSPACE 253 C DOWN 33"S 
780 PRINT "CHQME3CD0WN 33" 5 
790 IF A=V THEN PRINT TAB( 1)"CRVS0N3 

**CRVS0FF3"; 
800 IF B=N THEN PRINT TAB( 9)"CRVS0N3 

**CRVS0FF3"; 
810 IF C=M THEN PRINT TAB< IS)" 

C R VSON 3 ** C R VSOFF 3 " 
820 IF A=V AND B=N AND C=M THEN 880 
830 S*S+10: IF S<110 THEN 650 
840 GOSUB 900 
850 PRINT "THE COMBINATION WAS" 

: PRINT V;" "jN;" ";M: PRINT 
860 PRINT "CONDOLENCES WILL BE SENT 

TO YOUR FAMILY." 
870 END 
880 PRINT : PRINT : PRINT "CSPACE 53 

BOMB DEFUSED" 
890 END 
900 N=53281: POKE N-1,2: POKE 53281,7 

: PRINT "CCLR3CWHITE3CDOWN 103 

CSPACE 133***KABOOM***" 
910 S=54272: FOR L=S TO S+24 

: POKE L,0: NEXT 
920 POKE S+5,15: POKE S+6,15 

s POKE S+24, 15 
930 POKE S+1,5: POKE S,235 

: POKE S+4,129: POKE S+4,128 
940 FOR X*l TO 99: IF < PEEK <N) AND 

15) «7 THEN POKE N,2: GOTO 960 
950 POKE N,7 

960 FOR T=l TO 44: NEXT T,X 
970 POKE N-1,14: POKE N,6 
980 RETURN 
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As ruler of an island nation, you're beset with important decisions. The goal is prosperity for 
you and your people. You try to increase national wealth, personal wealth, population and natural 
resources. The computer acts as your aid, giving you up-to-the-minute information and choices. 
Your reign can last up to 10 years, providing a revolution doesn't force a change. 



Alterations— You can change the opening 
parameters by altering the values for the 
following variables in line 1 10: P is starting 
population; M is the treasury; F is the original 
number offish; T is number of years. 



100 REM UTOPIA 

110 P=5000 : M«2000000 : F*5000 : S* 1 OOOO 

:T»10:T*10 
120 PRINT "CCLR3CWHITE3HELLO, I AM 

MODEL 81882 OF THE" 
130 PRINT "OMNISCIENT MICRO ANALYSIS 

RESOURCE" 
140 PRINT "DIVISION. YOU MAY CALL 

ME OMAR.": PRINT 
150 PRINT "PLEASE IDENTIFY YOURSELF 

(NAME)": INPUT N* 
160 PRINT "CCLR3WELC0ME TO UTOPIA, 

"M$" •■ * PR TNT 

170 PRINT" "AS BENISN RULER OF UTOPIA, 

YOU MUST" 
180 PRINT "GUIDE YOUR CITIZENS 

THROUGH THE" 
185 PRINT "DECISIONS OF STATE." 

: PRINT 
190 PRINT "AS YOUR CONSULTING AID, 

I MILL PROVIDECSPACE 23YOU WITH 

DATA.": PRINT 
200 PRINT "YOU CAN GET A STATUS 
REPORT BY HITTINGCSPACE 33S 
DURING THE GAME.": PRINT 
210 PRINT "UTOPIA IS AN ISLAND THAT 

IS LOCATED INC SPACE 2 1 THE 
TROPICS.": PRINT 
220 PRINT "YOU WILL RULE A MAXIMUM 

OF TEN YEARS." 
230 PRINT "YOU MUST CONTROL THE USE 

OF NATURAL C SPACE 53RES0URCES 

WELL.": PRINT 
240 PRINT "GOOD LUCK YOUR HIGHNESS." 
250 PRINT "MAY THE NAME OF "N*" BE 

A BLESSING ON OUR ISLAND." 
260 PRINT : PRINT "HIT ANY KEY TO 

CONTINUE." 
270 GET Q*: IF Q*«"" THEN 270 
280 GOSUB 1090 
290 FOR T*10 TO STEP -1 
300 INPUT "WHAT IS YOUR SALARY THIS 

YEAR" j X 
310 M«M-X:R»R+X: PRINT 

t PRINT "YOUR PERSONAL WEALTH 

IS NOW *"R 
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320 IF R>*(< RND <8>*3>+l)*M THEN 

GOSUB 1160 
330 PRINT : PRINT "CRVSOND REPORT 

CRVS0FF3 FROM MINISTER OF FISH" 
: PRINT "EMMY YELLOWTAIL. " 
340 PRINT : PRINT "YOUR HIGHNESS 

THIS IS IT:"s PRINT 
350 A» INT ( RND <3>*3)+l 
360 IF A*l THEN PRINT "ALL IS WELL. 
THE FISH THRIVE. THERE ISCSPACE 
3 1 PLENTY TO FEED ALL." 
370 IF A«l THEN F=F+2000:P*P+5000 

:M»M+ 10000 
380 IF A*2 THEN PRINT "WE NEED MORE 

BOATS. THEY COST *1 0000 C SPACE 41 
EACH " 
390 IF A*2 THEN PRINT "HOW MANY WILL 

YOU BUY";: GOSUB 890:F=500*X 
400 IF A»3 THEN PRINT "THE SEALS 

ARE EATING MOST OF THE FISH." 
t GOSUB 910 
410 IF P<1000 THEN GOSUB 1160 
420 PRINT : PRINT "HIT ANY KEY TO 

CONTINUE" 
430 GET Q*: IF Q*="" THEN 430 
440 PRINT "CCLR3": GOSUB 1090 
450 PRINT : PRINT "CRVSON 3 REPORT 

CRVS0FF3 FROM MINISTER OF FARMS" 
: PRINT "STEVEN SOIL." 

MORE 
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460 
470 
480 
490 
500 

510 

520 
530 
540 

550 
560 

570 

580 

590 
600 

610 
620 

630 
640 
650 

660 

670 
680 
690 
700 



710 
720 

730 

740 

750 

760 

770 

780 
790 
800 
810 



16> m crvson3you win 



16>"tRVSQN3CSPACE 73 



X= INT ( RND (3>*3)+l 

IF X=l THEN GDSUB 620 

IF X=2 THEN GOSUB 650 

IF X=3 THEN GOSUB 700 

IF P=>8000 AND M*>8000000 AND 

F>8000 AND R> 1500000 THEN 540 

PRINT : PRINT "HIT ANY KEY TO 

CONTINUE" 
GET Q*: IF Q$«"" THEN 520 
PRINT "CCLR3": NEXT T 
FOR X*l TO 10: PRINT "CCLR3" 
: PRINT 

FOR TD»1 TO 200: NEXT TD 
PRINT TAB( 16>"ERVS0N3CSPACE 73 
CRVS0FF3" 
PRINT TAB< 
CRVS0FF3" 
PRINT TAB( 
CRVS0FF3" 

FOR TD=1 TO 200: NEXT TD,X 
PRINT : PRINT : PRINT N*" IS 

MADE RULER FOR LIFE!" 
PRINT : PRINT : END 
PRINT "ALL CROPS ARE DOING WELL. " 
: P*P+2000 : M=M+ 1 00000 
FOR TD«1 TO 1000: NEXT TD 
RETURN 
PRINT "EXCESS SUGAR CANE HAS 

BEEN SOLD FORCSPACE 53*1000000." 
PRINT "WHAT PERCENTAGE SHOULD 

GO INTO YOUR" 
INPUT "POCKET (0-100) ";X 
M*M+1E6-(1E6*X/100):R«R+1E6*X/100 
RETURN 

PRINT "HEAVY FLOODS FROM A 
TYPHOON HAVE WIPEDCSPACE 230UT 

MANY CROPS." 
PRINT "WHAT WILL YOU DO?": PRINT 
PRINT "A) REPLANT NEW CROPS." 
: PRINT "B> LIVE OFF STORED GRAIN" 
PRINT "C> BUY CROPS FROM ABROAD." 
: PRINT 

INPUT C*: IF C*<>"A" AND C*<>"B" 
AND C*<>"C" THEN 740 
IF C**"A" THEN M»M- INT (200000* 
RND (8)):P-P- INT (100* RND (8) > 
IF C*»"B" THEN P=P- INT (2000* 
RND (8>):M»M- INT ( RND 
IF C**"C" THEN M=M- INT 
(3>*400000) 

IF M<0 THEN M»0: GOSUB 1160 
IF P<100 THEN P«100 
RETURN 
FOR X»l TO 5: PRINT "CCLR3" 
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820 FDR TD=1 TO 200: NEXT TD 
830 PRINT : PRINT TAB( 10) "DEATH 

TO "N*" ! ! ! " 
840 FOR TD-i- TO 200: NEXT TD,X 
850 1=1 + INT ( RND (4>*P/2) 

:R= INT <R* RND (3)) 
860 IF I>=P*.8 THEN PRINT "YOU HAVE 
BEEN OVERTHROWN." 

: PRINT "YOU LOSE.": STOP 
870 IF RND (8X.7 THEN PRINT "YOU 

HAVE MAINTAINED POWER.": PRINT 

: RETURN 
880 PRINT "YOU HAVE RULED CRUELLY 

AND ARE BANISHED FROM UTOPIA." 

: STOP 
890 INPUT X: IF X=0 THEN 60SUB 1160 
900 M=M-X*10000: RETURN 
910 PRINT : PRINT "WHAT WILL YOU 

DO?": PRINT 
920 PRINT "A) KILL THE SEALS" 

: PRINT "B) GIVE UP FISHING" 
930 PRINT "C> LET NATURE HANDLE IT" 

: PRINT "D) PANIC" 
940 PRINT : INPUT A*: IF A*<>"A" AND 

A*<>"B" AND A*<>"C" AND A*<>"D" 

THEN 940 
950 IF A**"D" THEN 910 
960 IF A*="A" THEN 1=1+ INT (1000* 

RND (2) > 
970 IF A*="C" THEN 1=1+ INT (500* RND 

(7>>:F=F- INT ( RND (4)*3000) 
980 IF F<0 THEN F=0 
990 IF A*<>"B" THEN RETURN 
1000 PRINT : PRINT "HOW WILL YOU 

FEED THE PEOPLE?" 
1010 PRINT : PRINT "A) LET THEM EAT 
CAKE.": PRINT "B> BUY THEM 

IMPORTED FOOD." 
1020 PRINT "O GROW MORE FOOD." 

: PRINT 
1030 INPUT B*: IF B*<>"A" AND B*<>"B" 

AND B*<>"C" THEN 1030 
1040 IF B*="A" THEN GOSUB 1160 
1050 IF B*="B" THEN M=M-P*250 
1060 IF B**"C" THEN M=M-P*200 

:P» INT (P*.95> 
1070 IF M<0 THEN M=0: GOSUB 1160 
1080 RETURN 
1090 PRINT "CCLRHRVSONISTATUS REPORT 

: ISLAND OF UT0PIACRVSQFF3" 

a PRINT 
1100 PRINT : PRINT "POPULATION: %P 

8 PRINT "TREASURY: ",M 

MORE- 
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1110 PRINT "FISH: CSPACE 53 ",F 

: PRINT "PERSONAL WEALTH: ",R 
1120 PRINT "TIME LEFT: " ,T" YEARS" 

: PRINT "INSURGENTS: % I 
1130 PRINT : PRINT "HIT ANY KEY TO 

CONTINUE. " 
1140 GET Q$: IF Q*«"" THEN 1140 
1150 PRINT "CCLR3": RETURN 
1160 PRINT "CCLRJTHE INSURGENTS LED 

BY THE GREAT " 
1170 PRINT "CATHY COURAGEOUS HAVE 

REBELLED. " 
1180 PRINT : PRINT "WHAT WILL YOU 

DO?": PRINT 
1190 PRINT "A> GO INTO EXILE." 

: PRINT "B) TURN OVER ALL CASH" 
"O RESIST" 
INPUT D*: IF D*<>"A" AND 
D*<>"B" AND D*<>"C" THEN 1200 
1210 IF D** ,, A ,, THEN 1260 
1220 IF D*«"B" THEN M»M+R:K=R:R=0 

S IF K<.1*R THEN GOSUB 810 
1230 IF D*»"C" THEN GOSUB 810 
1240 I»I+ INT < RND <8>*P/5> 
1250 RETURN 
1260 IF A**"A M THEN PRINT "THE SEALS 

BLOCK YOUR ESCAPE.": STOP 
1270 PRINT "YOU ESCAPE BUT YOU STILL 
LOSE THE GAME." 



s PRINT 
1200 PRINT 
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Tic-Tac-Toe 

This is a classic game of strategy for two players. The computer provides the playing board and 
acts as master of ceremonies. It checks the progress of the game after each move and either 
announces the winner or determines whether the game is a tie. 



100 
110 
120 
130 

140 
150 

160 

170 



180 

190 

200 
210 

220 

230 

240 

250 

260 

270 




REM TIC-TAC-TOE 

DIM M<9),K<9>,T<7,2> 

FOR W*l TO 9: READ M<W)s NEXT W 

FOR W«0 TO 7s FOR J*0 TO 2 

s READ T(W,J>: NEXT J,W 

FOR W*l TO 9:K<W>*0: NEXT W 

DATA 1319,1323,1327,1479,1483, 

1487,1639,1643,1647 

DATA 1,2,3,4,5,6,7,8,9,1,4,7,2,5, 

8,3,6,9,1,5,9,3,5,7 

PRINT "CCLR3CWHITE3" 

s PRINT "HELLO. YOU ARE ABOUT 

TO PLAY TIC-TAC-TOE": PRINT 
INPUT "WHO ARE YOU";A*s PRINT 
: PRINT A*", YOU MAY PLAY WITH 

A FRIEND." 
PRINT "I WILL ANNOUNCE THE GAME." 
: PRINT : PRINT "WHO DO YOU 

WANT TO PLAY WITH"; 
INPUT B*s PRINT "CCLRl" 
PRINT A*" AND "B*", YOU CAN 

TAKE" 
PRINT "TURNS BY ENTERING X OR 

IN THE PLAYING GRID.": PRINT 
PRINT "EACH PLAYER MAY ENTER 

ONCE PER TURN.": PRINT 
PRINT "THE PLAYER WHO GETS THREE 

IN A ROW WINS.": PRINT 
PRINT "A ROW MAY BE HORIZONTAL, 

VERTICAL ORCSPACE 3 3 D I AGONAL. " 
PRINT : PRINT "THE FIRST PLAYER 

USES AN X. " 
PRINT : PRINT "THE SECOND PLAYER 

USES AN 0.": PRINT : PRINT 

MORE 
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280 PRINT : PRINT "<«« CSPACE 23 

PRESS ANY KEY TO CONTINUE CSPACE 23 

>»»" 
290 GET Q*: IF Q*» M " THEN 290 
300 PRINT "CCLR3"s PRINT "WHEN YOU 
SEE THE SCREEN, YOU WILL SEE" 
310 PRINT "NUMBERS IN THE BOXES 

WHERE THE LETTERSCSPACE 23WILL 
GO.": PRINT 
320 PRINT "TO PLACE YOUR LETTER, 

SIMPLY TYPE THECSPACE 33NUMBER 
WHICH IS LOCATED "; 
330 PRINT "WHERE YOU WANTCSPACE 23 

YOUR LETTER TO GO, AND PRESS 
CRVSON3RETURNCRVSOFF3. " 
340 PRINT : PRINT s PRINT "WHO WILL 

GO FIRST, "A*" OR "B*; 
350 INPUT Z*s IF Z*OA* AND Z*OB* 

THEN 340 
360 IF Z**A$ THEN F$=A*:S*=B* 

: GOTO 380 
370 S*=A*:F*=B* 
380 PRINT "CCLR3CD0WN S3" 
385 FOR X=55296 TO 56295s POKE X,ls 

NEXT X 
390 FOR W*l TO 3: PRINT TAB( 14)" 

CSPACE 33CRVSON3 CRVSOFF 3 CSPACE 33 

CRVS0N3 CRVS0FF3": NEXT W 
400 PRINT TAB< 14) "CRVS0N3 CSPACE 113 

CRVSOFF 3" 
410 FOR W»l TO 3: PRINT TAB< 14)" 

CSPACE 33CRVSON3 CRVSOFF 3 CSPACE 33 

CRVS0N3 CRVS0FF3": NEXT W 
420 PRINT TAB< 14) "CRVSQN3 CSPACE 113 

CRVSOFF 3" 
430 FOR W»l TO 3s PRINT TAB< 14)" 

CSPACE 33CRVSON3 CRVSOFF 3 CSPACE 33 

CRVS0N3 CRVS0FF3"s NEXT W 
440 FOR W=l TO 9: POKE M(W),W+48 

: NEXT W 
450 T=0:FL*0 
460 PRINT "CHOMES'T*", ENTER YOUR 

MOVE";* INPUT M* 
470 PRINT "CH0ME3 CSPACE 383" 
480 M« VAL (M*)s IF M>9 OR K(M)<>0 

THEN 460 
490 POKE M(M),24sK(M)=MsT-T+l 

s GQSUB 580s IF FL»1 THEN 550 
500 PRINT ,, CH0ME3"S*", ENTER YOUR 

MOVE";: INPUT M* 
510 PRINT "CH0ME3 CSPACE 383" 
520 M» VAL <M*)s IF M>9 OR K(M)<>0 

THEN 500 
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Alteration— Add music when the winner is 
announced by extending the subroutine 
beginning at line 630. 



530 POKE M(M),15:K(M)=M:T=T+1 

: GOSUB 580: IF FL=1 THEN 550 
540 GOTO 460 
550 PRINT "CH0ME3"W*: PRINT 

: INPUT "PLAY AGAIN" ;Q* 
560 IF LEFT* <Q*,1)="Y" THEN 140 
570 END 
580 FOR W=0 TO 7:A= PEEK <M<T<W,0>>> 

:B= PEEK <M(T(W,1>>> 

:C= PEEK (MCT<W,2>>) 
590 IF A=24 AND B=24 AND C=24 THEN 

W$=»F*+" WINS!":FL=1: GOSUB 630 
600 IF A*15 AND B*15 AND C=15 THEN 

W*=S$+" WINS!":FL=1: GOSUB 630 
610 IF FL=0 AND T=9 THEN FL=1 

:W*»"TIE GAME!" 
620 NEXT W: RETURN 
630 FOR I«0 TO 2: POKE M<T(W,I>), 

PEEK <M<T<W,I)))+128: NEXT I 

: RETURN 
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Dice Racers 



Here is a dice-simulation game using a computer-generated pair of dice. Two players take turns 
"rolling" the dice. Each player uses the die values to move two cars toward a finish line. The first 
player with both cars over the line wins. 



Alteration— Use the dice routine for any board 
game requiring dice. Use lines 110, 490-510 
and 800-820. 



100 REM DICE RACERS 

110 FOR X«l TO 6: FOR Y-l TO 3 

s READ K*<X,Y): NEXT Y,X 
120 POKE 53281,0: PRINT "CCLR3CWHITE3 
"; TAB( 16>"CRVSON3DICE RACE" 
: PRINT 
130 PRINT "THIS GAME IS FOR TWO 

PLAYERS.": PRINT 
140 INPUT "PLAYER ONE'S NAME"|N1* 
150 INPUT "PLAYER TWO'S NAME";N2* 

: PRINT 
160 PRINT "YOU EACH HAVE TWO CARS 

TO DRIVE BY" 
170 PRINT "MOVING THEM ACCORDING 

TO THE THROW" 
ISO PRINT "OF THE DICE. YOU CAN 

MOVE ONE CAR THE" 
190 PRINT "VALUE OF BOTH DICE OR 

SPLIT THE DICE" 
200 PRINT "AND MOVE BOTH CARS." 

: PRINT 
210 PRINT "YOU CANNOT MOVE MORE 

THAN THE VALUE OFCSPACE 23THE 

DICE.": PRINT 
220 PRINT "THE FIRST PLAYER TO HAVE 

BOTH CARS" 
230 PRINT "(H) ACROSS THE FINISH 

LINE WINS.": PRINT 
240 PRINT "AFTER THE DICE ROLL, 

THE COMPUTER WILL" 
250 PRINT "ASK YOU HOW MUCH YOU 

WANT TO MOVE CAR" 
260 PRINT "ONE AND THEN HOW MUCH 

YOU WANT TO MOVECSPACE 23CAR 

TWO. " 
270 PRINT "BE SURE TO ENTER A ZERO 

IF YOU DO NOTCSPACE 33WANT 

TO MOVE A CAR." 
280 PRINT : PRINT "HIT ANY KEY TO 

START" 
290 GET Q*: IF Q*-"" THEN 290 
300 R1*«"CRVS0N3CMED.GRAYKSPACE 63 

CWHITE3 CMED.GRAY3CSPACE 63" 
310 R2*»"CRVSON3CMED.GRAY3 CSPACE 133" 
320 PRINT "CCLR3" TAB( 14)jRl* 
330 PRINT TAB( 14) "CRVSON3CMED.GRAY3 
*F-I-N-I-S-H*" 
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Alteration— Change the program so players 
have to hit the finish line exactly. If a car goes 
too far, it must start over. 



340 FOR X=l TO 10: PRINT TAB< 14>;R1* 

: PRINT TAB< 14>;R2*: NEXT X 
350 IF LEN <N1*>>6 THEN Nl** LEFT* 

<N1*,6) 
360 IF LEN <N2*)>6 THEN N2*= LEFT* 

<N2*,6) 
370 PRINT "CWHITE3" TAB< 14) Nl*; 

TAB< 21>N2*"CH0ME3" 
380 FOR X=l TO 2: FOR Y*l TO 2 

:D*(X f Y)«"CHOMEKDOWN 213" 

: NEXT Y,X 
390 J*«"EH0ME3CD0WN 153" 
400 R*U,1)*"CRIGHT 163" 
410 R*<1,2)=R*(1,1)+"CRIGHT 23" 

sR*<2,l)=R*<l,l>+ M CRIGHT 63" 

:R*(2,2)-R*(2,1)+"CRISHT 23" 
420 P*isC»i 
430 FOR X»l TO 2s FOR Y*l TO 2 

: PRINT D*<X,Y);R*(X,Y);"i:RVS0N3 

CMED.GRAY3H": NEXT Y,X 
440 F2*0: IF LEN (D*(2,l))<2 AND LEN 

(D*<2,2>><2 THEN F2=l 
450 Fl»Os IF LEN (D*(l f l))<2 AND LEN 

<D*<1,2>><2 THEN Fl«l 
460 IF Fl*l OR F2=l THEN 740 
470 PRINT "CH0ME3": PRINT "CWHITE3 

PLAYER"PsDl» INT ( RND (8)*6>+l 

:D2= INT ( RND <4>*6>+l 
480 PRINT s PRINT 
490 FOR X-i TO 3: PRINT "CSPACE 23 

"K*(D1,X): NEXT Xs PRINT s PRINT 
500 FOR X=l TO 3: PRINT "CSPACE 23 

H K*(D2,X)i NEXT X: PRINT : PRINT 
510 D=D1+D2 
520 PRINT J*;"CWHITE3H0W MANY" 

: PRINT "CAR #1" 

MORE 
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530 INPUT Q* 

540 Q* VAL <Q*> : IF Q>D THEN GND 

550 IF Q«0 THEN 600 

560 PRINT D*<P,1>;R*<P,1);"CRVS0N3 

C MED. GRAY 3 " 
570 D*»D*<P,1>: IF LEN <D*KQ+1 THEN 

Q» LEN <D*>-1 
580 D** LEFT* <D*, LEN <D*)-Q> 

:D*<P,1)*D* 
590 PRINT D*(P,l>sR*(P,l>;"CRVS0N3 

CMED.GRAY3H" 
600 D=D-Q 
610 PRINT J*; : FOR X=i TO 3 

s PRINT "CSPACE 73": NEXT X 
620 PRINT J*;"CWHITE3HQW MANY" 

: PRINT "CAR # 2" 
630 INPUT Q* 

640 Q= VAL CQ*>: IF Q>D THEN Q=D 
650 IF Q=0 THEN 700 
660 PRINT D*<P,2> ;R*CP,2> ; "CRVS0N3 

C MED. GRAY 3 " 
670 D*=D*<P,2): IF LEN <D*KQ+1 THEN 

Q= LEN <D*>-1 
680 D** LEFT* <D*, LEN (D*>-Q) 

:D*(P,2)«D* 
690 PRINT D*<P f 2);R*<P,2>j"CRVS0N3 

CMED.GRAY3H" 
700 FOR T=0 TO 999: NEXT T 
710 PRINT "CH0ME3": FOR X=l TO 18 

: PRINT "CSPACE 83": NEXT X 
720 IF P=l THEN P=2: GOTO 470 
730 P-li GOTO 440 
740 PRINT "CCLR3CWHITE3" 
750 IF Fl=l AND F2=l THEN PRINT Nl*" 

AND "N2*" TIED!": GOTO 780 
760 IF Fl = l THEN PRINT Nl*" WINS!" 
770 IF F2=l THEN PRINT N2*" WINS!" 
780 PRINT : PRINT : INPUT "PLAY 

AGAIN" ;Q* 
790 IF LEFT* «3*,1>="Y" THEN 120 
800 DATA "CRVSON 3 CSPACE 33" , "CRVSQN3 
Q "," CRVSON 3 CSPACE 33" , "CRVS0N3Q 

CSPACE 2 3"," CRVSON 3 CSPACE 33"," 

CRVSON 3 CSPACE 23Q" 
810 DATA "CRVS0N3QCSPACE 23","CRVSON3 
Q " , " CRVS0N3 CSPACE 23Q" , " CRVS0N3 

Q Q"," CRVSON 3 CSPACE 33%"CRVSON3Q 
Q" 
820 DATA " CRVSON 3 Q Q" , " CRVSON 3 Q 

" , " CRVS0N3Q Q" , " CRVS0N3QQQ" » " 

CRVS0N3 CSPACE 33" » "CRV5QN3QGQ" 
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Alien 

Here's your chance to be the alien! From your space capsule, watch Earth come into view. 
Choose your options carefully. Will you invade or come in peace? 



100 REM ALIEN 

110 POKE 53281,0 

120 PRINT "CCLR3CWHITE3COMMUNICATION 

:": PRINT : PRINT 

130 PRINT TAB< 4> "CBLUKRVSONHSPACE 243 
•i 

140 PRINT TAB( 4) "CBLU3CRVSQN3 

[RVS0FF3 [WHITE] [SPACE 23. [SPACE 63 
.[SPACE 63. CSPACE 33. CBLU3 
[RVS0N3 " 
150 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 43. [SPACE 93 
.[SPACE 33. [SPACE 33[BLU3[RVSON3 
[RVSOFF3[WHITE3 [SPACE 230N 
BOARD" 
160 PRINT TAB( 4) "[BLU3[RVSON3 

[RVSOFF3[WHITE3 .[SPACE 73[RVS0N3 
vtSPACE 23c [RVS0FF3 [SPACE 73. 
[BLU3[RVSON3 [RVSOFF3[WHITE3 
[SPACE 23SYSTEMS:" 

MORE-» 
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170 PRINT TAB( 4) "CBLU3CRVSON3 

CRVSOFF 3 CSPACE 73 CLT. BLU3 CRVS0N3 v 

CRVSOFF DfC SPACE 23±CRVSON3 

C.CRVS0FF3 CSPACE 73CBLU3CRVSON3 
•i 

180 PRINT TAB< 4> "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23. CSPACE 33 

CLT.BLU3CRVSON3kCSPACE 23CRVSOFF3 

CWHITE3++CLT.BLU3 bdCWHITE3+ 

CLT.BLU3k . C SPACE 33. CBLU3CRVSQN3 
u 

190 PRINT TAB< 4> "CBLU3CRV50N3 

CRVS0FF3 CSPACE 63CLT.BLU3 CRVS0N3 
CWHITE3++CLT.BLU31.CRVSOFF3 
if_C R VSON 3 v C WH I TE 3 ++ C RVSOFF 3 
CSPACE 63CBLU3CRVSON3 " 

200 PRINT TAB ( 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23.. CSPACE 23 
CLT.BLU3CRVSON3k CWHITE3++ 
CRVS0FF3+CLT.BLU3cCRVS0N3 CWHITE3 
+CLT.BLU3 CRVSOFF3kCWHITE3 CSPACE 33 
.CSPACE 23CBLU3CRVSON3 " 

210 PRINT TAB( 4) "CBLU3CRVSON3 

CRVS0FF3 CSPACE 73 CLT. BLU3 CRVS0N3f 
CSPACE 23CRVSOFF3 CWHITE3± 
CLT.BLU3d_CRVSON3 d CRVSOFF 3 CSPACE 73 
CBLU3CRVSON3 .« 

220 PRINT TAB( 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 .CSPACE 23. 

.CSPACE 23CLT.BLU3CRVSON3i. 

CWHITE3++CLT.BLU3LCRVSOFF3CWHITE3 

CSPACE 43. CSPACE 43CBLU3CRVSON3 
it 

230 PRINT TAB< 4) "CBLU3CRVSQN3 

CRVSOFF3CWHITE3 CSPACE 33. CSPACE 33 

.CSPACE 43. CSPACE 43. CSPACE 23. 
CBLU3CRVSQN3 " 
240 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23. . 

CSPACE 23. CSPACE 23. CSPACE 53. 

CSPACE 53CBLU3CRVSQN3 " 
250 PRINT TAB< 4) "CBLU3CRVSQN3 CSPACE 243 

"s PRINT 
260 PRINT "CWHITE3RDCKET ORIENTATION 

s"s PRINT 
270 PRINT " CRVS0N3 CSPACE 33FCRVSOFF3 

CSPACE 2 3 SPEED* " 
280 PRINT " CRVS0N3 CRED3 CWHITE3 

UCRVS0FF3" 
290 PRINT " CRVS0N3 CRED3 CWHITE3 

ECRVS0FF3 CSPACE 23WARP DRIVE: M 

s PRINT " CRVS0N3 CRED3 CWHITE3 
LCRVS0FF3" 
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300 PRINT " CRVS0N3 CRED3 CWHITE3 

CSPACE 23 CRVS0FF3 CSPACE 23ALERT 
STATUS: " 
310 D1*«"CH0ME3CD0WN 173" 

:D2**D1*+"CD0WN 23" 

:D3*=D2*+"CD0WN 23" 

:D4*«D3*+ ,, CDQWN 23" 

320 R*="CRIGHT 203":K**"CHOME3CRIGHT t53 
n 

330 S**"CH0ME3CD0WN 83"+R*+"CRIGHT 103 
•i 

340 B*«" CSPACE 253 ":B1**" CSPACE 93" 

350 PRINT "CH0ME3" 

360 PRINT D1*;R*; "EARTH" 

370 PRINT D2*:R*:"SUBLIGHT" 

380 PRINT D3#;R*;"QFF" 

390 PRINT D4*;R#:"CGRN3GREEN" 

400 PRINT S*;"CWHITE3EARTH ON" 

: PRINT S*:"CD0WN3M0NIT0R." 
410 FOR T«l TO 2000: NEXT T 
420 PRINT K*;B*: PRINT S*;B1* 

: PRINT S*;"CD0WN3";B1* 
430 PRINT S*;"A> INVADE" 
440 PRINT S*:"CD0WN3B> FLEE" 
450 PRINT S*j"CDOWN 23C> PEACE" 
460 PRINT K*:"WHY DO YOU COME 

(LETTER)?" 
470 GET C*: IF C**"" THEN 470 
480 IF C**"A" THEN 520 
490 IF C**"B" THEN 990 
500 IF C*«"C" THEN 1560 
510 GOTO 470 
520 PRINT K*;B*: PRINT K*; "WOULD 

YOU RECONSIDER ?" 
530 PRINT S*;B1*: PRINT S*; "CDOWM": 

Bl*: PRINT S*;"CDOWN 23";B1* 
540 PRINT S*:"CRVSON3YCRVSOFF3 YES" 

: PRINT S*;"CDOWN3CRVSON3N 

CRVS0FF3 NO" 
550 GET Q*: IF Q*«"" THEN 550 
560 IF Q*«"Y" THEN 420 
570 PRINT K*;"WE MUST DEFEND 

OURSELVES ! " 
580 S0«54272: FOR L»0 TO 24 

: POKE SO+L.O: NEXT L 

fi POKE SO+14,5: POKE SO+18,16 
590 POKE S0+3,l: POKE SO+24,143 

: POKE SO+6,240: POKE SO+4,65 
600 FOR X*0 TO 99: PRINT D4*;R*;B*» 

CH0ME3": POKE SQ+24,143 
610 IF INT (X/10>/2» INT < INT 

<X/10)/2) THEN 630 

MORE-» 
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Alteration— Add sound when the earthlings 
shoot at you, line 650. 



Alteration— Change the probability of being 
destroyed by changing line 730. For example, 
IFRND(8)<.5ANDS>3THEN960will 
increase your chance of destruction. 



Alteration— Change the probability of Earth 
surrendering by changing A in line 910. For 
example, IF A> .9 will increase the probability 
that Earth would surrender. 



620 PRINT D4*;R*; ,, CRVSON3CRED3CSFACE 23 
CWHITE3RED ALERT! C RED 1 Z SPACE 23 
CWHITE3 CRVSOFF3 CHOME3 " 
: POKE SQ+24,0 
630 POKE SO, 23: POKE S0+l,43 
640 NEXT X: POKE SO+24,0 
650 PRINT K*;B*: PRINT K*; "THEY 

ARE FIRING!" 
660 PRINT S*?B1*: PRINT S*; "CD0WN3"; 

Bl*: PRINT S$"CDOWN 23";B1* 
670 PRINT S*j"A) SHIELD" 

: PRINT S*j"CDOWN3B) FLEE" 
680 GET Q*: IF Q*»"" THEN 680 
690 IF Q*="A" THEN 720 
700 IF Q**"B" THEN 990 
710 GOTO 680 
720 S-S+l 

730 IF RND (8X.4 AND S>3 THEN 960 
740 PRINT K*;B*: PRINT K*; "SHIELD 

INTACT" 
750 FOR T*l TO 1500: NEXT T 
760 PRINT S*;B1*: PRINT S*; "CD0WN3"} 

Bl* 
770 PRINT S*;"A> ATTACK" 

: PRINT S*;"CD0WN3B> FLEE" 
: PRINT S*;"CDQWN 23C> PEACE" 
780 PRINT K*;B*: PRINT K*; "WHAT 

NOW ?" 
790 GET Q*: IF Q**"" THEN 790 
800 IF Q*="A" THEN 840 
810 IF Q*="B" THEN 990 
820 IF Q*»"C" THEN 1560 
830 GOTO 790 
840 PRINT K*;B*: PRINT K*; "WHICH 

CITY";: INPUT N* 
850 PRINT K*;B* 
860 A» RND (8) 
870 IF A<.3 THEN PRINT K*; "ATTACK 

FAILED": GOTO 890 
880 PRINT K*;N*" DESTROYED!" 
890 FOR T*l TO 1500: NEXT T 
900 PRINT K*;B* 
910 IF A>.95 THEN PRINT K*"EARTH 

SURRENDERS ! YOU WIN ! " : STOP 
920 IF A>.05 THEN 570 
930 PRINT "CH0ME3I CANNOT LET YOU 

KILL INNOCENTS! YOUR" 
940 PRINT "LIFE SUPPORT WAS TURNED 

OFF. YOU LOSE!" 
950 STOP 
960 GOSUB 1620: PRINT "CH0ME3Y0UR 

SHIELDS DID NOT HOLD OUT!" 
970 PRINT TAB< 11)?"*** YOU LOSE! 

##*" 
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9S0 STOP 

990 PRINT S*;B1*: PRINT S*; "CDOWW; 

Bl*: PRINT .S*; "CDOWN 23"; Bl* 
1000 PRINT K*;B* 
1010 PRINT "CH0ME3CD0WN 43" 
1020 PRINT TAB( 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 43. CSPACE 63 
.CSPACE 53.CSPACE 23. CBLU3 
CRVS0N3 " 
1030 PRINT TAB< 4) "CBLU3CRVSON3 
CRVSQFF3CWHITE3 .CSPACE 33. 
CSPACE 33. .CSPACE 43. .CSPACE 23 
.CBLU3CRVSON3 " 
1040 PRINT TAB( 4> "CBLU3CRVSON3 

CRVSDFF3CWHITE3 CSPACE 43. CSPACE 23 
.CSPACE 23. CSPACE 43. CSPACE 23. 
. CBLU3CRVSON3 " 
1050 PRINT TAB( 4) "CBLU3CRVSON3 
CRVS0FF3 CWHITE3 . CSPACE 63 . 
CSPACE 53... .CSPACE 33CBLU3 
CRVS0N3 " 
1060 PRINT TAB( 4> "CBLU3CRVSON3 
CRVSOFF3CWHITE3. CSPACE 23. 
CSPACE 73. CSPACE 33. CSPACE 33. 
CSPACE 23CBLU3CRVSQN3 " 
1070 PRINT TAB< 4> "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23. CSPACE 33 
.CSPACE 23. CSPACE 33. CSPACE 23. 
CSPACE 33. CBLU3CRVSON3 ■ 
1080 PRINT TAB( 4) "CBLU3CRVSON3 
CRVSDFF3CWHITE3. CSPACE 63. 
CSPACE 33. CSPACE 73. CSPACE 23 
CBLU3CRVSON3 ". 
1090 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 33. CSPACE 23 
.CSPACE 73. .CSPACE 33..CBLU3 
CRVS0N3 " 
1100 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 ..CSPACE 23. 
CSPACE 23. .CSPACE 23. CSPACE 33. 
.CSPACE 23CBLU3CRVSON3 " 
1110 PRINT TAB( 4)"CBLU3CRVSON3 

CRVSOFF3CWHITE3. . . .CSPACE 23. 
CSPACE 63. CSPACE 53CBLU3CRVSON3 

1120 PRINT K*;"C WHITE 3 ENTER X 

COORDINATE";: INPUT X* 
1130 X« VAL <X*) 
1140 PRINT K*;B* 
1150 PRINT K*; "ENTER Y COORDINATE"; 

: INPUT Y* 
1160 Y» VAL <Y*) 
1170 PRINT K*;B* MQRE ^ 



81 



Alien 



Alteration— Change the appearance of the 
planet Omega by changing PRINT statements 
in lines 1340-1440. 



1180 PRINT K*; "PRESS 'W TO WARP 

OUT" 
1190 GET Q*: IF Q*<>"W" THEN 1190 
1200 PRINT Dl*;R*s"HYPERSPACE" 
1210 PRINT D3*;R$; •' ON C SPACE 23" 
1220 PRINT D4*sR*;"GREENCSPACE 103 

CH0ME3" 
1230 PRINT "CH0ME3CD0WN 33" 

: FOR J«l TO 11 
1240 PRINT TAB< 4) "CBLU3CRVSON3 

C RVSOFF 3 C WH I TE 3 *****#**#**#*#** 

****##CBLU3CRVSON3 " 
1250 NEXT J 
1260 FOR W*0 TO 9: FOR T«l TO 200 

: NEXT T 
1270 PRINT D2*;R*;"CWHITE3WARP " 

STR* <W>+" CSPACE 53" 
1280 NEXT W 
1290 FOR W=9 TO STEP -1 

: FOR T*l TO 200: NEXT T 
1300 PRINT D2#sR*;"CWHITE3WARP " 

STR* <W>+" CSPACE 53" 
1310 NEXT W 
1320 IF INT ( RND <7)*20)»Y AND INT < 

RND (8)*20)»X THEN 1530 
1330 PRINT "CH0ME3CD0WN 33" 
1340 PRINT TAB< 4> "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23. CSPACE 63 

.CSPACE 63. CSPACE 33. CBLU3 

CRVS0N3 " 
1350 PRINT TAB( 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 43. CSPACE 93 

.CSPACE 33. CSPACE 33CBLU3CRVSON3 
CRVS0FF3" 
1360 PRINT TAB( 4) "CBLU3CRVSON3 

C RVSOFF 3 C WHITE 3 .CSPACE 73CRED3 

CRVS0N3vCSPACE 23c CRVSOFF 3 CSPACE 73 

. CBLU3CRVSON3 CRVS0FF3" 

1370 PRINT TAB< 4) "CBLU3CRVSON3 

CRVS0FF3 CSPACE 73CRED3CRVSQN3v 

CRVS0FF3 CSPACE 33+CRVSON3 c 

CRVSOFF 3 CSPACE 73CBLU3CRVSON3 
ii 

1380 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23. CSPACE 33 

CRED3CRVSON3k_CSPACE 23CRVSOFF3 

CYEL3++CRED3 CSPACE 23kCYEL3±k 

CWHITE3 .CSPACE 33. CBLU3CRVSON3 
ii 

1390 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF 3 CSPACE 63CRED3CRVSON3 
CYEL3+CRED3b CRVS0FF3 iiCRVS0N3v 

CYEL 3++ CRVSOFF 3 CSPACE 63CBLU3 

CRVS0N3 " 
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1400 PRINT TAB< 4) "CBLU3CRVSON3 
CRVSOFF3CWHITE3 CSPACE 23.. 
CSPACE 23CRED3CRVSON3CSPACE 23 
CYEL3+=CRVSOFF3±CRED3 CRVS0N3 
CYEL3+C RED 3 CSPACE 23CRVSOFF3 
CWHITE3 CSPACE 33. CSPACE 23CBLU3 
CRVS0N3 " 
1410 PRINT TAB< 4> "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 23. CSPACE 33 
CRED3CRVSON3k CYEL3+±+CRED3 

CRVS0N3 CYEL3+CRED3 CRVS0FF3k 
CWHITE3 CSPACE 33. CSPACE 23CBLU3 
CRVS0N3 " 
1420 PRINT TAB( 4) "CBLU3CRVSON3 

CRVSOFF 3 CSPACE 73CRED3CRVSON3f 
CSPACE 23CRVSOFF3 CYEL3+CRED3v 
CRVS0N3 dCRVSQFF3 CSPACE 73CBLU3 
CRVS0N3 " 
1430 PRINT TAB< 4) "CBLU3CRVSON3 
CRVSOFF3CWHITE3 .CSPACE 23. 
.CSPACE 23CRED3CRVSON3! CYEL3+ 
CRED3JLCRVSQFF3CWHITE3 CSPACE 43. 
CSPACE 43CBLU3CRVSON3 " 
1440 PRINT TAB< 4) "CBLU3CRVSON3 

CRVSOFF3CWHITE3 CSPACE 33. CSPACE 33 
.CSPACE 43. CSPACE 43. CSPACE 23. 
CBLU3CRVSON3 " 
1450 PRINT D1*;R*;"CWHITE3QMEGA 

SYSTEM" 
1460 PRINT D2*;R*; "SUBL I GHT CSPACE 43" 
1470 PRINT D3*;R*;"0FF" 
14B0 PRINT D4*jR*5"C6RN3GREEN" 
1490 PRINT S*;"CWHITE30MEGA ON" 
s PRINT S*;"CD0WN3M0NIT0R." 
1500 PRINT K*;B* 
1510 PRINT K*; "WELCOME TO OMEGA 

5. " 
1520 PRINT "SAFE ESCAPE!": STOP 
1530 GQSUB 1620 
1540 PRINT s PRINT s PRINT "CWHITE3 

YOU HIT A STAR! YOU LOSE!" 
1550 STOP 
1560 PRINT K*;B$ 
1570 PRINT K*j "WELCOME TO PLANET 

EARTH. " 
15B0 FOR X*l TO 6 
1590 PRINT K*;"CD0WN3";B* 

: FOR T»l TO 200: NEXT T 
1600 PRINT K*;"CDOWN3";"CRVSON3YOU 

WIN": FOR T»l TO 200: NEXT T 
1610 NEXT X: STOP 



MORE 
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1620 N=53281s POKE N-1,2: POKE 53281,7 

: PRINT "CCLR3CWHITEKD0WN 83 

CSPACE 12D***DESTR0YED**# M 
1630 S«54272s FOR L«S TO S+24 

s POKE L,Os NEXT 
1640 POKE S+5,15: POKE S+6,15 

3 POKE S+24, 15 
1650 POKE S+1,5: POKE S,235 

8 POKE S+4,129s POKE S+4,128 
1660 FOR X»l TO 99s IF ( PEEK <N> 

AND 15) =7 THEN POKE N,2 

8 GOTO 1680 
1670 POKE N,7 

1680 FOR T»l TO 44s NEXT T,X 
1690 POKE N-1,148 POKE N,6 
1700 RETURN 
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Sharpen your word skills by playing this classic game with your computer. The computer will 
think of a word. You guess it, letter by letter. A correct letter will be inserted into the appropriate 
space. Each wrong letter adds to the hangman. You are allowed 12 wrong guesses before being 
hung. When the hangman is complete, the whole word is displayed. The computer gives you 10 
words. Your score is based on the length of correctly identified words and the number of missed 
letters. 



? 




100 REM HANGMAN 

110 POKE 53281,0: PRINT "CCLR3CWHITE3 

THE COMPUTER THINKS OF A WORD. 
YOU TRYCSPACE 33T0 GUESS IT." 
120 PRINT "TWELVE WRONG GUESSES 

BUILD THE HANGMAN." 
130 PRINT : PRINT "HIT ANY KEY" 
140 GET Q#: IF Q*«"" THEN 140 
150 SE*0: FOR PL«1 TO 10 
160 PRINT : PRINT "CCLR3W0RD #"PL 
170 CT*0:NW«100 
180 READ W*: IF CT>24 AND RND 

(8X1 /NW THEN RESTORE : GOTO 210 
190 CT-CT+1: IF W**"END" THEN 

RESTORE : GOTO 170 
200 GOTO 180 
210 G*=" " 
220 PRINT "CCLR3": PRINT : PRINT 

: PRINT : PRINT : PRINT : PRINT 
225 FOR X=55296 TO 56295: POKE X,l: 

NEXT X 

230 PRINT "CSPACE 103 iiiii " 

240 PRINT "CSPACE 103-CSPACE 33CRVSON3 
u 

250 PRINT "CSPACE 103-CSPACE 33CRVSON3 
ii 

260 FOR A«l TO 7: PRINT TABC 14) " 

CRVS0N3 ": NEXT A 
270 FOR A«l TO 5: PRINT "CSPACE 43 

CRVS0N3 CSPACE 73q»wCSFACE 53" 

: NEXT A 
280 PRINT "CH0ME3CRIGHT3CD0WN3"; 

: FOR X«l TO LEN <W*> : PRINT "-"; 

: NEXT 
290 C*0:I»0 
300 PRINT "CH0ME3CD0WN 23" 

: PRINT "ENTER A LETTER:" 
310 POKE 198,0 

320 GET L*: IF L*»"" THEN 320 
330 PRINT "CH0ME3CD0WN 33 CSPACE 173" 
340 K»0: FOR A»l TO LEN <G*) 

: IF L#» MID* <G*,A,1> THEN K»l 
350 NEXT A: IF K*l THEN 300 

MORE-* 
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Alteration— A simple vocabulary of 
commonly used English words is in DATA 
statements 560 to 600. You can replace or 
extend this vocabulary by adding or deleting 
DATA statements. The last word in the last 
DATA statement must be END. It is used as a 
marker to identify the end of the list. 

Depending on the average length of the 
words, you can store a few thousand words in a 
Commodore 64. If you increase the list to 
more than 100 words, increase the value of 
NW in line 170 to equal the number of words 
in the list 

Alteration— Design the word list for a certain 
user. For example, make a list of foreign words 
for the person learning a foreign language. Or, 
make a list of simple words for a child learning 
how to spell. 



360 G*=G*+L* 

370 PRINT "CHOME3CDOWN 43 ";G* 

380 F-Xi FOR X*l TO LEN <W*> 

390 IF L*= MID* <W*,X,1> THEN PRINT " 

CHOME3": PRINT TAB( X);L#;:F=0 

:C«C+1 
400 NEXT X 

410 IF O LEN (W*> THEN 470 
420 IF F«0 THEN 300 
430 1*1+1: READ M,L: POKE L,M 

: POKE L+30720,2 
440 IF K12 THEN 300 
450 PRINT "CH0ME3": PRINT "YOU'RE 
HUNGCSPACE 23" s PRINT "THE 
WORD WAS:": PRINT W* 
460 GOTO 490 
470 PRINT "CHQME3CRIGHT 53 

♦♦SUCCESS** " 
480 SE=SE+5* LEN <W*)-I: PRINT 

: PRINT "YOUR SCORE ="SE 
490 FOR T*l TO 4000: NEXT 
500 NEXT PL 
510 RESTORE 
520 PRINT "CCLR3": PRINT "YOUR FINAL 

SCORE-"SE: PRINT 
530 INPUT "PLAY AGAIN <Y/N)";Q* 

: IF LEFT* <Q*,11)«"Y" THEN 100 
540 DATA 87,1434,102,1474,102,1514, 

78,1473,77,1475 
550 DATA 101,1513,103,1515,160,1554, 

221 , 1594,221 , 1634, 108, 1633, 123, 

1635 
560 DATA THE, AND, THAT, FOR, WITH, WAS, 

HIS, NOT, BUT, HAVE, YOU, WHICH, ARE, 

HER, HAD, FROM, THIS 
570 DATA THEY, THEIR, SHE, HAS, WERE, 

BEEN,HIM,ONE,SO,WILL,THERE,WHO, 

WHEN , WHAT , YOUR , MORE 
580 DATA WOULD, THEM, SOME, THAN, MAY, 

UPON, ITS, OUT, INTO, OUR, THESE, MAN, 

LIKE , SHALL , GREAT , NOW 
590 DATA SUCH, SHOULD, OTHER, ONLY, ANY, 

THEN , ABOUT , THOSE , CAN , MADE , WELL 
600 DATA OLD, MUST, SAID, TIME, EVEN, NEW, 

COULD, VERY, MUCH, OWN, MOST, MIGHT, 

FIRST, AFTER, YET, TWO 
610 DATA END 
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Find out more about yourself by having the great psychiatrist Dr. Sigmund analyze you. Once on 
the couch, you are shown computer-generated ink blots. You enter your first impression about 
what you see and get instantly analyzed in the classic fashion. You get 14 analyses per visit. There 
are no scores and no losers. This is a great game for a party. 



Alteration— Change the ink-blot patterns by 
changing the graphics symbols in string 
variable K$, line 1 10. To simplify the pattern, 
add more spaces to K$ . 



100 REM SIGMUND 

110 C#*"CBLK1CWHITE3CRED3CCYN3CPUR3 
CGRN3 CBLU3 CYEL3 " : K*«" [pound! 
Qi^rk ": POKE 53280,6: POKE 53281,0 
120 PRINT" "CCLR3": PRINT "HELLO, 

I AM ANNA, SECRETARY TO DR." 
130 PRINT "SIGMUND. IS THIS YOUR 

FIRST "; 
140 INPUT "VISIT"; A*: PRINT 

: IF LEFT* <A*,1)»"N" THEN 270 
150 INPUT "WHAT IS YOUR NAME";B# 

: PRINT 
160 PRINT "YOU ARE IN LUCK "B$"." 
: PRINT "DR. SIGMUND WILL SEE 
YOU NOW." 
170 FOR T»l TO 4000: NEXT T 

: PRINT "CCLR3" 
180 PRINT "PLEASE, MAKE YOURSELF 
COMFORTABLE ONCSPACE 43THE 
COUCH.": PRINT 
190 PRINT "I SEE THAT YOU ARE A 

LITTLE BIT": PRINT "NERVOUS, 
it g* ii ii 

200 PR I NT*" NOW TRY TO RELAX." 

: FOR T*l TO 4000: NEXT T: PRINT 

MORE-* 
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Alteration— Change the number of questions, 
variable S, in line 260. 



Alteration— Change any word from the 
analyst's list and the corresponding 
interpretation. For example, change SPIDER 
in lines 320 and 360 to a friend's name and 
enter something about that person in lines 520 
and 530. Customize the program to suit your 
purposes. 



210 PRINT "I HAVE SOME PRETTY 

PICTURES TO SHOW YOU." 
220 PRINT "JUST LET YOUR MIND BO 
TO REST. LOOK ATCSPACE 23THE 
PICTURES AND PICK FROM" 
230 PRINT "THE LIST WHAT" 

: PRINT "IT REMINDS YOU OF. 
IF SOMETHING" 
240 PRINT "ELSE, JUST ENTER THAT." 

s FOR T*l TO 7000: NEXT T:S*0 
250 FOR T=l TO 5000: NEXT T 
260 S*S+1: IF S=14 THEN 740 
270 PRINT "CCLR30K, HERE IS A PICTURE 

:": PRINT 
280 FOR X=0 TO 9: PRINT TAB( 6); 

: FOR Y=l TO 20: C= INT ( RND 

<7)*8+l>: PRINT MID* <C*,C,1>; 
290 K* INT C RND (8)*6+l> 

: PRINT MID* <K*,K,1>; 
300 NEXT Y: PRINT " ": NEXT X 
310 PRINT 
320 PRINT "CWHITE3 CSPACE 33SPIDER 

CSPACE 3 3 MOTHER C SPACE 6 3 CAT" 
330 PRINT "CSPACE 33SNAKECSPACE 43 

BUTTERFLY CSPACE 3 3 ROPE" 
340 PRINT "CSPACE 3 3 FATHER CSPACE 33 

REINDEERCSPACE 43F00D" 
350 PRINT : INPUT 0*: PRINT "CCLR3" 
360 IF 0**" SPIDER" THEN 520 
370 IF 0**" MOTHER" THEN 540 
380 IF 0*»"CAT" THEN 560 
390 IF O**" SNAKE" THEN 580 
400 IF 0**" BUTTERFLY" THEN 600 
410 IF 0*»"ROPE" THEN 620 
420 IF 0**"REINDEER" THEN 640 
430 IF 0*="FOOD" THEN 660 
440 IF 0*=" FATHER" THEN 670 
450 IF 0*="INK BLOT" THEN 680 
460 IF 0$="FACE" THEN 700 
470 IF 0**" CAMEL" THEN 720 
480 PRINT "TELL ME ABOUT YOUR 

CHILDHOOD.": INPUT P* 
490 PRINT "CCLR3G0 ON...": INPUT P* 

: PRINT "CCLR3HMMM...TELL ME 
MORE.": INPUT P* 
500 PRINT "CCLR3THAT IS ENOUGH FOR 
NOW. CALL ME TOMORROW ABOUT 
THIS." 
510 GOTO 250 
520 PRINT "OBVIOUSLY YOU FEEL 

ENTANGLED. THE" 
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530 PRINT "SPIDER IS A SYMBOL OF 

YOUR FEAR OF C SPACE 63 
FRUSTRATION. ": SOTO 250 
540 PRINT "YOUR DEEP FEELINGS FOR 

YOUR MOTHER ARE" 
550 PRINT "ONLY NATURAL. DO NOT 

BE AFRAID TO LETCSPACE 33THEM 

SHOW.": GOTO 250 
560 PRINT "SOMEWHERE IN YOUR 

SUB-CONSCIOUS, C SPACE 8 3 YOU HAVE 

A FEAR OF CATS. " 
570 PRINT "YOU STARTLE WHEN ONE 

CROSSES YOUR PATH C SPACE 2 3 AT 

NIGHT.": GOTO 250 
580 PRINT "BEWARE THE SNAKE. YOU 

NEED TO CONTROL C SPACE 3 3 YOURSELF 

IN TENSE SITUATIONS." 
590 GOTO 250 
600 PRINT "THE BUTTERFLY SYMBOLIZES 

YOUR FREECSPACE 63SPIRIT AND 

GREAT INNER JOY." 
610 PRINT "LET YOURSELF HAVE FUN." 

: GOTO 250 
620 PRINT "THE ROPE IS A SIGN OF 

THE STRONG SUPPORT YOU OFFER 

YOUR FRIENDS." 
630 PRINT "YOU HAVE GREAT INNER 

RESERVES.": GOTO 250 
640 PRINT "YOU ARE BLESSED WITH 

A CHILDLIKE LOVECSPACE 33FOR 

NATURE. YOUR HEART IS "; 
650 PRINT "PURE.": GOTO 250 
660 PRINT "EITHER YOU ARE HUNGRY 

OR YOU DESIRE TO C SPACE 2 3 FEED 

OTHERS.": GOTO 250 
670 PRINT "YOUR FEELINGS FOR YOUR 

FATHER MUST C SPACE 6 3 SOMEDAY 

BE EXPLORED.": GOTO 250 
680 PRINT "YOU ARE A REALIST. 

UNFORTUNATELY, YOUCSPACE 33ARE 

WITHOUT IMAGINATION." 
690 GOTO 250 
700 PRINT "YOU ARE LIKE A NEWBORN 

CHILD, YOU ARE" 
710 PRINT "ATTRACTED TO FACES. YOU 

SEEK ACCEPTANCE AND LOVE." 
: GOTO 250 
720 PRINT "ONE HUMP OR TWO?" 

: PRINT "SERIOUSLY, YOU ARE 

IN A SPIRITUAL DESERT" 
730 PRINT "ALONE YOU CAN PREPARE 

TO REENTER THECSPACE 4 3 WORLD. " 

: GOTO 250 

MORE- 
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740 PRINT "CCLRaTHANK YOU FOR COMING. 
I WILL SEE YOUCSPACE 43ABAIN 
CSPACE 2DNEXT WEEK." 
750 PRINT "PLEASE LEAVE *50 ON THE 
TV. " 
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This fun program is enjoyed by young children. It combines picture-making and learning the 
concepts of up, down, left, right and in. 

The child chooses from a list of objects: bird, child, duck and star. Then the child chooses where 
to place the object in the colorful castle and landscape displayed on the screen. The object can also 
be erased. 

The child should play along with an older person— especially if the child can't read. Together 
they can create pictures and a story! 



100 REM SPATIAL CONCEPTS 
110 L*C1>="CH0ME3CD0WN 163CRIGHT 113" 
120 L*(2)=L*(l)+"i:DQWN 43CRIGHT 183" 
130 L*<3)« ,, CHQME3CDOWN3CRIGHT 163" 
140 L*(4)="CHQME3CDaWN 123CRIGHT 23" 
!L*<5)*L*<4)+"CRIGHT 293" 

MORE 
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150 PRINT "CCLR3": PRINT TAB< 

12) "SPATIAL CONCEPTS": PRINT 
: PRINT 
160 PRINT "WE ARE ABOUT TO PLAY 

A GAME TO LEARN UP, DOWN, LEFT, 

RIGHT AND IN." 
170 PRINT 
ISO PRINT "YOU WILL SE A CASTLE 

WITH THE WORDS UP, DOWN, LEFT, 

RIGHT AND IN." 
190 PRINT 
200 PRINT "THESE WORDS ARE PLACES 

NEAR THE CASTLEESPACE 23THAT 

SHOW WHAT THE WORDS MEAN." 
210 PRINT : PRINT "AT THE BOTTOM 

UF THE SCREEN YOU WILL" 
220 PRINT "SEE THE NAMES OF THINGS 

TO PAINT WITH."! PRINT 
230 PRINT "YOU CAN USE THESE THINGS 

TO FINISHCSPACE 33THE CASTLE 

PICTURE.": PRINT 
240 PRINT "PRESS ANY KEY TO 

CONTINUE.": PRINT 
250 GET Q*: IF Q*="" THEN 250 
260 PRINT "CCLR3": PRINT "I WILL 

ASK WHAT THING YOU WANT TO 

ADD" 
270 PRINT "TO THE PICTURE, AND YOU 

MUST ENTER ITSCSPACE 23NAME. " 
: PRINT 
280 PRINT "THEN I WILL ASK YOU WHERE 

YOU WANT TO" 
290 PRINT "PUT THE THING NEAR THE 

CASTLE, AND YOUCSPACE 23MUST 

TELL ME: UP, DOWN, LEFT"; 
300 PRINT ", RIGHT, OR IN.": PRINT 
310 PRINT "OK, LET US BEGIN..." 

: PRINT 
320 PRINT "PRESS ANY KEY TO START." 

: PRINT 
330 GET Q*: IF Q*="" THEN 330 
340 FOR X*l TO 5: READ T#(X): NEXT X 
350 DATA BIRD, CHILD, DOG, STAR, ERASE 
360 FOR X»l TO 5: READ W*(X>: NEXT X 
370 DATA IN, DOWN, UP, LEFT, RIGHT 
380 PRINT "CCLR3": PRINT : PRINT 

: PRINT 
390 FOR X-55896 TO 56295: POKE X,5 

: NEXT X 
400 FOR X»1624 TO 2023: POKE X,160 

: NEXT X 
410 POKE 53281,1: POKE 53280,6 
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Alteration— Change the castle design by 
altering lines 420-590. 




420 



430 



440 



450 



460 



470 



PRINT TAB< 14)"CMED.GRAY3CRVSON3 

CRVS0FF3 CRVS0N3 CSPACE 3] 
CRVS0FF3 CRVS0N3 CRVS0FF3" 
PRINT TAB( 14) "CRVS0N3 CSPACE 73 
CRVSOFF 3" 
PRINT TAB( 
CRVS0FF3" 
PRINT TAB< 
CRVS0FF3" 
PRINT TAB( 
CBLK3 CMED. 



480 



490 



500 



510 



520 



530 



540 



550 



560 



570 



580 



15) " CRVS0N3 CSPACE 53 

15)"CRVSON3CSPACE 53 

15) "CRVS0N3 CSPACE 23 
BRAY3 CSPACE 23CRVSQFF3 



PRINT TAB( 9) "CRVS0N3 CSPACE 23 
CRVSDFF3 CRVSDN3 CRVSOFF 3 CSPACE 23 
CRVS0N3 CSPACE 23CBLK3 CMED.GRAY3 
CSPACE 23 CRVS0FF3 CSPACE 23CRVSQN3 
CSPACE 23CRVSOFF3 CRVS0N3 CSPACE 23 
CRVS0FF3" 

PRINT TAB( 9) M CRV50N3CSPACE 43 
CRVS0FF3 CSPACE 23CRVSON3CSPACE 53 
CRVS0FF3 CSPACE 33 CRVS0N3 CSPACE 33 
CRVSOFF 3" 

PRINT TAB< 9)"CRVS0N3CSPACE 33 
CRVSC-FF3 CSPACE 33 CRVS0N3 CSPACE 53 
CRVS0FF3 CSPACE 33CRVSON3 CBLK3 

CMED.GRAY3 CRVS0FF3" 
PRINT TAB( 9)"CRVS0N3 CBLK3 

CMED. GRAY 3 CSPACE 153CRVSOFF3" 
PRINT TAB( 9) "CRVS0N3 CSPACE 173 
CRVSQFF3" 

PRINT TAB< 9) "CRVS0N3 CSPACE 103 
CBLK3 CMED. GRAY 3 CSPACE 23CBLK3 

CMED. GRAY3 CSPACE 33CRVSOFF3" 
PRINT TAB( 9) "CRVS0N3 CSPACE 173 
CRVS0FF3" 

PRINT TAB< 8)"CRVSON3CBLU3 
CMED. GRAY3 CSPACE 23 CWHITE3 CSPACE 63 
CMED. GRAY3 CSPACE 93CBLU3 
CMED. GRAY3 CRVS0FF3 " 

PRINT TAB( 7)"CRVSQN3CBLU3CSPACE 23 
CMED. GRAY3 CSPACE 23 CWHITE3 CSPACE 63 
CMED. GRAY 3 CSPACE 93CBLU3CSPACE 23 
CRVSOFF 3 " 

PRINT TAB( 6) "CRVSON3CBLU3 CSPACE 33 
CMED. GRAY 3 CSPACE 23 CWHITE3 CSPACE 63 
CMED. GRAY 3 CSPACE 93 CBLU3 CSPACE 33 
CRVSOFF 3" 

PRINT TAB( 7) "CRVSON3CBLU3 CSPACE 53 
CMED. GRAY 3 iC SPACE 33cCBLU3CSPACE 113 
ii 

PRINT TAB< 8) "CRVSON3CBLU3 CSPACE 53 
CMED.GRAY3£CSPACE 33cCBLU3CSPACE 83 

MORE- 
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590 PRINT TAB( 20) "CRVS0N3CSPACE 53 

CRVS0FF3"! PRINT s PRINT 
600 PRINT "CBLK3CRIGHT 53BIRDCSPACE 23 

CHILDCSPACE 23D0GCSPACE 23STAR 

CSPACE 23ERASECHOME3" 
610 PRINT L*<l>;"CRVSON3CBLK3IN 

CRVS0FF3"s PRINT L*<2> j "CRVS0N3 

DOWN C HOME 3" 
620 PRINT L*<3)j"CRVSON3UPCRVSOFF3" 

8 PRINT L*<4);"CRVSON3LEFT 

CRVS0FF3": PRINT L*<5> ; "CRVS0N3 

RIGHTCRVS0FF3" 
630 PRINT "CHOME3CBLK3"; 

: INPUT "PAINT WITH":P* 
640 PRINT "CHOME 3 CSPACE 203" 
650 FOR X-l TQ 5: IF P*-T*(X> THEN 

670 
660 NEXT X: GOTO 630 
670 PRINT "CH0ME3";: INPUT "PAINT 

WHERE ";W* 
680 PRINT "CHOME 3 CSPACE 283" 
690 FOR X=l TO 5: IF W*=W*(X> THEN 

710 
700 NEXT Xs GOTO 670 
710 C*«"CWHITE3" 

720 IF W**"DOWN" THEN C**"CGRN3" 
730 PRINT L*(X);C*;"CRVS0N3 CSPACE 53" 

: PRINT L*(X>;"CDOWN3CRVSON3 

CSPACE 53": PRINT L*<X) ; "CDOWN 23 

CRVS0N3 CSPACE 53CHOME3" 
740 C*«"CRVSON3CGRN3": IF W*O"D0WN" 

THEN C*«"CBLK3" 
750 IF P**"STAR" THEN PRINT L*<X);" 

CDOWN3CRIGHT3CBLK3*" 
760 IF P*»"CHILD" THEN PRINT L*(X>: 

C*;"CRIGHT3W"x PRINT L*<X>;C*:" 

CD0WN3N±M"i PRINT L*(X):C*$" 

CDOWN 23CRIGHT3H" 
770 IF P**"BIRD" THEN PRINT L*(X);C*; 

" )": PRINT L*(X);C*;"CD0WN3*+>" 

s PRINT L*(X);C*; "CDOWN 23 )" 
780 IF P*»"DOG" THEN PRINT L*<X>;C*s" 

CD0WN3 Q N": PRINT L*(X>;C$;" 

CDOWN 23 luh " 
790 IF P*»"ERASE" THEN PRINT L*(X)|" 

CRVSON3CBLK3CDOWN3";W*(X> 
800 GOTO 630 
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Mind Reader 

Here's a fun guessing game in which you and the computer take turns guessing numbers. The 
program begins with an animated man (you can see his lips move) asking for the user's name. The 
name is used throughout the game. 

The user has five chances to guess a number between 1 and 20. The computer man helps by 
giving higher and lower clues. The user then chooses either to think of a number or let the 
computer man think of a number. The user enters a number between 1 and 5, and the computer 
man has one chance to guess the number. After this process is repeated five times, the computer 
man reports the score. 



Alteration— Changing the value of TL in line 
150 changes the speaking rate of the animated 
man. Decreasing TL increases speed. 



100 
110 
120 
130 
140 
150 

160 



170 



REM MIND READER 

DIM W$<81),G$<5> 

FOR X«0 TO 81: READ W#(X) 

FOR X=*l TO 5: READ G*<X): 



NEXT 
NEXT 
123" 



L**" C HOME 3 1 DOWN 113CRIGHT 
B*="CSPACE 93":TL*250 
: POKE 53281,1 

Ml*=" [HOME} C DOWN 113 CRVS0N3k 
CRVS0FF3CSPACE 23CRVSON3 diii-f 
CRVS0FF3 k":M2*«" cf c ooov k" 
M3*="r.HOME3CDOWN 113 r.RVSQN3k 
CRVS0FF3CSPACE 23CBLK3CRVSON3 
C SPACE 53CRVSOFF3 k'^M^-" c£ 
CRVSQN3J i i i i CRVSQFF3 k" 



MORE 




95 



Mind Reader 



Alteration— By changing M in line 320 to 
M=INT(RND(7)* 10)+1 , you make the 
computer think of a number between 1 and 10, 
instead of 1 and 20. 



180 PRINT "CCLR3CBLK3" 

190 PRINT "CSPACE 33 CRVSOMvC SPACE 43 

": PRINT "CSPACE 23CRVSON3k 

CSPACE 23di_CRVSOFF3vb" 

: PRINT " dCRVSON3ij:RVSaFF3vi. 

CSPACE 23i. k" 
200 PRINT " CRVSON3kCRVSOFF3 c vc 

v k": PRINT ,, dCRVSON3iCRVSaFF3 
dCRVSON3tCRVSOFF3fdCRVSaN3i 

CRVSOFF3f k" 
210 PRINT "cCRVSQN3bCRVSOFF3 CCRVS0N3 

vCRVSOFF3vcCRVSQN3vCRVSOFF3v 
k": PRINT " cf CSPACE 63CRVSON3k" 

: PRINT "CSPACE 23k CSPACE 33b 

CSPACE 23CRVSON3k" 
220 PRINT " CRVSON3kCRVSOFF3 CSPACE 43 

dv cf ": PRINT " CRVSON3kCRVSOFF3 

CSPACE 83k" 
230 PRINT " CRVSON3kCRVSOFF3 CSPACE 23 

CRVS0N3di i if CRV5QFF3 k" 

: PRINT " cf cooov k" 

: PRINT "CSPACE 23k_CSPACE 63dv 
240 PRINT "CSPACE 23 cbiiiiiv " 

: PRINT "CSPACE 63CRVSON3 " 
250 PRINT "CSPACE 43CRED3±±±±±" 

: PRINT "CSPACE 43CBLK3kCRED3±±± 

CBLK3CRVSON3k": PRINT "CSPACE 43 

CRVSQN3cCRED3±±±CBLK3v" 
260 PRINT "CSPACE 53 CCYN3CRVSON3 

CSPACE 33": PRINT "CSPACE 53 

CRVSDN3 CRVSOFF3 CRVS0N3 " 

: PRINT "CSPACE 43CBLK3CRVSON3 

CSPACE 23CRVSOFF3 CRVS0N3 CSPACE 23 
ii 

270 A*0:B=3: SOSUB 580 

280 PRINT L*;"CD0WN 33";: INPUT N* 

: PRINT UT;"CDQWN 33"; "CSPACE 103 
ii 

290 FOR T=l TO 2222: NEXT 
300 A*4:B=39: GQSUB 580 
310 FOR T=l TO 2222: NEXT 
320 C*0: FOR 8*1 TO 5:K«0 

:M= INT < RND (8)*20)+l 
330 A=9:B=10: SOSUB 580: 80SUB 600 

:K*K+1 
340 A=11:B»11: SOSUB 580 
350 PRINT L*;"CDOWN 33";: INPUT Q* 

:N» VAL <Q$> 
360 IF M>N THEN A=40:B=40: GOSUB 580 
370 IF M<N THEN A*41:B=41: BOSUB 580 
380 FOR T*l TO 500: NEXT 

: PRINT L*;"CDOWN 33"; "CSPACE 53" 
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390 IF M=N THEN W*<48)= STR* <K):A=42 

:B=49: GOSUB 580:C*C+1: GOTO 430 
400 IF K<5 THEN 330 
410 W*<54)» STR* <M):A=50:B*54 

: GOSUB 580 
420 FOR T»l TO 1111: NEXT T 
430 NEXT G: FOR T«l TO 1000: NEXT T 
440 W*(55)=N*:W*<58>* STR* <100*C/5> 

:A=55:B=60: GOSUB 580 
450 A=61:B*61: GOSUB 580: A=27:B=39 

: GOSUB 580 
460 00: FOR G»l TO 5 

470 W*<64)=G*(G):A=62:B=67: GOSUB 580 
480 PRINT L*;"CDOWN 33";: INPUT Q* 

:N» VAL <Q*): IF N<1 OR N>5 THEN 

PRINT L*;"CDOWN 33";" CSPACE 33" 

: GOTO 470 
490 M= INT < RND <8)*5)+l 

: FOR T=l TO 900: NEXT 

: PRINT L*;"CDOWN 33"; "CSPACE 53" 
500 IF M«N THEN A=68:B»71: GOSUB 580 

:C=C+1: GOTO 520 
510 A»72:B*74: GOSUB 580 
520 FOR T=l TO 900: NEXT T,G 
530 FOR T*l TO 1000: NEXT T:A«75:B=79 

:W*<77>= STR* <C*20) : GOSUB 580 
540 FOR T-l TO 1000: NEXT TsA*80:B«Bl 

i GOSUB 580 
550 PRINT L*;"CDOWN 33";: INPUT N* 

: PRINT L*;"CDOWN 33"; "CSPACE 63" 
560 IF LEFT* <N*,1)="Y" THEN 180 
570 PRINT "CCLR3": END 
580 FOR X=A TO B: GOSUB 620 

I PRINT L*;B*: PRINT L*;W*<X) 

: FOR T*l TO TL: NEXT T 
590 GOSUB 630: FOR T»l TO TL 

: NEXT T,X: PRINT L*;B*: RETURN 
600 GOSUB 620: PRINT L*;B* 

: PRINT L*;G*<G>: FOR T«l TO TL 

: NEXT T 
610 GOSUB 630: FOR T-l TO TL: NEXT T 

: PRINT L*;B*: RETURN 
620 PRINT Ml*: PRINT M2*: RETURN 
630 PRINT M3*: PRINT M4*: RETURN 
640 DATA HELLO, WHO, ARE, YOU?, YOU, ARE, 

ABOUT , TO , PLAY , GUESS , THE , NUMBER. 
650 DATA FIRST, I, WILL, THINK, OF, FIVE, 

NUMBERS, AND, YOU, WILL, TRY, TO, 

GUESS, THEM. 
660 DATA LATER, YOU, WILL, THINK, OF, 

FIVE, NUMBERS, AND, I, WILL, TRY, TO, 

GUESS, THEM, 
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670 DATA HIGHER, LOWER, THAT, IS, RIGHT!, 

IT, TOOK, YOU, , TRIES. 
680 DATA TOO, BAD, IT, WAS, , , YOU, GOT, 

, PERCENT , CORRECT , NOW 
690 DATA ENTER, THE, , NUMBER, FROM, 1 

-5. , MY, GENIUS, OVERCOMES, ME. , I , WAS, 

WRONG. 
700 DATA I, GOT, , PERCENT, CORRECT, 

PLAY, AGAIN Y/N 
710 DATA FIRST, SECOND, THIRD, FOURTH, 

FIFTH 
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Poetry 



The program creates haiku, an ancient form of Japanese poetry. The traditional form calls for 
three lines of five, seven and five syllables. The poems usually refer to seasonal changes and moods. 
Therefore, the phrases selected randomly by the program contain related vocabulary. The program 
can write some very nice haiku. 



100 REM "POETRY" 
110 POKE 53281,1 

120 FOR X-0 TO 9: READ F*<X>: NEXT 
: FOR X*0 TO 7: READ S$(X) 
: NEXT X 
130 FOR X-0 TO 7: READ T*<X>: NEXT X 
140 PRINT "CCLR3": PRINT TAB< 17)" 
CRVS0N3 CDK. GRAY3POETRYCRVSOFF3 " 
: PRINT 
150 PRINT : PRINT "HELLO HONORABLE 

USER.": PRINT 
160 PRINT "I AM A JAPANESE HAIKU 

PROGRAM.": PRINT 
170 PRINT "PRESS ANY KEY AND I WILL 
BE PLEASED TO C SPACE 2 3 WRITE 
A POEM FOR YOU." 
ISO PRINT : PRINT "HAIKU IS AN 

ANCIENT FORM OF POETRY." 
190 PRINT "IT IS AN HONOR TO WRITE 

FOR YOU." 
200 PRINT : PRINT "HIT ANY KEY TO 
START. " 

MORE-> 
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Alteration— Change the phrases used to build 
the haiku by changing the DATA statements in 
lines 300-390. Each new phrase should have 
the same number of syllables as the phrase it 
replaces. 



210 GET Q#: IF Q$» n " THEN 210 
220 A* INT ( RND <8>*10) 
:B* INT ( RND <8)*8) 
:C= INT ( RND <6>*8> 
230 PRINT "CCLR3CD0WN 83" 
240 PRINT TAB< 20- LEN <F*<A)>/2>; 

F*<A> 
250 PRINT TAB( 20- LEN <S$<B>>/2); 

S*<B> 
260 PRINT TAB< 20- LEN <T*<C>>/2>; 

T*(C> 
270 PRINT : PRINT : PRINT 

s PRINT "CSPACE 43HIT CRVS0N3R 
CRVS0FF3 KEY TO RECEIVE A NEW 
POEM. " 
280 GET Q$: IF Q*="" THEN 280 
290 IF Q**"R" THEN 220 
300 DATA THE GRAY MOUNTAINS HOST, 
TODAY I SAW THE, SPLASHES IN 
THE POND 
310 DATA NOW CHERRY BLOSSOMS, DROP PING 
FROM BRANCHES, FRESHLY DRAWN 
CHALK LINES 
320 DATA WINTER HILLSIDES HOST, NOW 
REDFACED CHILDREN, A MOONLIT 
QUIET 
330 DATA A GARDEN CHANGES , MOMENTARY 
FLASHES OF, SQUIRREL GATHERING 
ACORNS 
340 DATA DISTURB THE REFLECTION 
OF, SWIRL IN THE TWILIGHT 
COOLNESS 
350 DATA RED LEAVES PROVIDE RAKE 

FODDER, REFLECT IMAGINATION 
360 DATA THE LAUGHTER AND SNOWY 
PLAY, CATCH RAYS OF BROKEN 
MOONLIGHT 
370 DATA THE SUMMER LIGHTNING, WINTER 
IS COMING, A MOONLIT QUIET, A 
GARDEN CHANGES 
380 DATA FUEL FOR CHILDREN'S PLAY, OF 
SUMMER CHILDREN, OF REDFACED 
CHILDREN 
390 DATA SPLASHES IN THE POND 



v % 
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No Free Lunch 



Put on your thinking cap for this arithmetic game. You're out to lunch along the ocean and have 
to hop rocks across hazardous tidepools to reach your food. A correct answer to the arithmetic 
problem gets you to the next rock, closer to your lunch. With three correct answers in a row, you 
can eat. But watch out! A wrong answer gets you all wet. 



100 REM NO FREE LUNCH 

110 POKE 53281,14: POKE 53280,6 

120 PRINT "CCLR3": FOR X*l TO 17 

: PRINT : NEXT X 
130 PRINT TAB( 34) ; "CRVSON3CBLK3 

LUNCH" 
140 PRINT "CRVSON3CLT.BLU3 CSPACE 23 

CDK. GRAY 3 CSPACE 23CLT.BLU3CSPACE 43 
CDK.GRAY3 CLT.BLU 1 CSPACE 63 
CDK.GRAY3 CSPACE 33 CLT.BLU3 CSPACE 43 
CDK.6RAY3 CSPACE 23 CLT.BLU3 CSPACE 43 
CDK. GRAY3 CSPACE 23 CLT.BLU3 CSPACE 33 
CDK. GRAY] CSPACE 63CLT.BLU3 "; 
150 PRINT "CRVSON3CBLU3 CDK.GRAY3 

CSPACE 33 CBLU3 CSPACE 33 CDK. GRAY3 
CSPACE 23 CBLU3 CSPACE S3CDK.6RAY3 
CSPACE 43 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 33 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 33 CBLU3 CSPACE 33CDK.GRAY3 
CSPACE 73CBLU3"; 

MORE* 
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Alteration— Alter the equations for A and B in 
lines 290 and 300 to change the range of 
numbers in the questions. For example, 
A»INT(RND(9)* 20)+1 will include 
numbers up to 20 in the problems. 



Alteration— Make the game more challenging 
by changing the equations into multiplication 
problems. Change the addition sign in lines 
340, 360 and 370 to the multiplication sign. 



160 



170 



PRINT 
CSPACE 
C SPACE 
CSPACE 
[SPACE 
C SPACE 
C SPACE 
PRINT 



180 

190 

200 

210 

220 

230 
240 

250 

260 

270 

280 
290 
300 
310 

320 

330 
340 

350 
360 
370 

380 

390 



"CRVSON3CBLU3 CDK.GRAY3 

43 CBLU3 CSPACE 23CDK.GRAY3 

23 CBLU3 CSPACE 

53 CBLU3 CSPACE 

33CBLU3CSPACE 

43 CBLU3 CSPACE 

73CBLU3"; 
" CRVS0N3 CDK. GRAY3 CSPACE 



43CDK.GRAY3 
33 CDK. GRAY! 
33 CDK. GRAY 3 
23CDK.GRAY3 



53 



CBLU3 CDK. GRAY 3 CSPACE 43CBLU3 
CSPACE 23CDK.GRAY3CSPACE 73CBLU3 

CDK.GRAY3CSPACE 43 CBLU3 CSPACE 23 
CDK. GRAY3 CSPACE 53 CBLU3 CSPACE 23 
CDK. GRAY3 CSPACE 73CBLU3"; 
PRINT "CRVS0N3 CDK. GRAY3 CSPACE 403 

M J 

PRINT "CLT.BLU3 CSPACE 133CRVSON3 

CBLK3ND FREE LUNCHCRVSOFF3CHOME3 H 

PRINT "CRIGHT 33CYEL3CRVSON3 

[POUND 3 *" 

PRINT "CRIGHT 33CYEL3CRVSON3 

C SPACE 33" 

PRINT "CRIGHT 33CYEL3*CRVSON3 

CRVSQFF3 CFQUND3 " 
D** " C HOME 3 C DOWN 163" 
J*<1)»"CRIGHT 23":J*(2)»" CRIGHT 73 
":J*<3>«J*(2>+"CRI6HT 93" 
J* <4>*J*<3>+" CRIGHT 53" 
: J* <5>=J#<4)+" CRIGHT 63" 
: J* <6)=J*<5>+" CRIGHT 53" 
U* < 1 ) -" CWHITE3 0" : U* (2) «"NCRVS0N3 

CRVS0FF3M" : U* (3) «" CRIGHT3H" 
E*<1> *"CSPACE 23 ":E$ (2) -"CSPACE 33 
" :E* (3) »" CSPACE 23" 
J»l 

A= INT < RND (8)*9)+l 
B» INT < RND <8)*9>+l 
PRINT D*;: FOR X*l TO 3 
: PRINT J*<J);U*<X>: NEXT X 
PRINT "CH0ME3CD0WN 63 CRIGHT 63 
CSPACE 233" 

PRINT "CRIGHT 63 CSPACE 233" 
PRINT "CHQME3CDaWN 63 CRIGHT 63HOW 

MUCH IS"A"+"B; 
INPUT C 

IF A+B-C THEN 430 
PRINT "CRIGHT 6 3 SORRY, THE ANSWER 

IS"A+B 
PRINT D*;: FOR X-l TO 3 
: PRINT J*<J);E*(X>» NEXT X 
PRINT D*;"CDOWN 23"; 
: FOR X*l TO 2: PRINT J*(J);" 
CRIGHT 23";U*(X>: NEXT X 
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400 S0=54272: FOR Z=SO TO SO+24 

s POKE Z,0: NEXT Z: POKE SO+5,11 

: POKE SO+6,31: POKE SO+24, 15 
410 POKE S0+l,65: POKE SO, 227 

: POKE SO+4,129 
420 PRINT "CH0ME3CDQWN 93 CRISHT 63 

SPLASH!!!": FOR T«l TO 500 

s NEXT Ts SOTO 490 
430 PRINT "CRISHT 63CQRRECT!" 
440 FOR T*0 TO 999: NEXT T 
450 PRINT D*;: FOR X*l TO 3 

: PRINT J*<J>;E*(X>: NEXT X 
460 J=J+1: IF J<6 THEN 290 
470 PRINT D*; : FOR X*l TO 3 

: PRINT J$<J);U*<X): NEXT X 
480 PRINT "CH0ME3CD0WN 83 CRISHT 63 

YUM! YUM! EAT WELL! ! ! " 
490 PRINT : PRINT "CRISHT 63TRY 

AGAIN":; INPUT Q* 
500 IF LEFT* <Q*,1)*"Y" THEN 110 
510 END 
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Spelling Bee 



Here's an educational game of great versatility, providing entertainment and instruction. The 
program features a bee that moves across the screen, leaving behind it a scrambled word. The 
object is to unscramble the word and enter the correct spelling. 



Alteration— Change the number of words 
presented by altering line 320. For example, 
FOR X~1 T0 1 will ask for 10 questions. 



100 REM SPELLING BEE 

110 W*10 

120 DIM W*(W> ,S(20) 

130 POKE 53280,6s POKE 53201,14 

: PRINT "CCLR3CBLK3": PRINT 
140 PRINT "WELCOME TO SPELLING BEE." 
150 PRINT : PRINT "YOU WILL SEE 

THE BEE FLY ACROSS THE" 
160 PRINT "SCREEN, LEAVING LETTERS 

AS IT GOES." 
170 PRINT s PRINT "THESE LETTERS 

ARE THE LETTERS OF AC SPACE 63 

SCRAMBLED WORD." 
180 PRINT "YOU MUST UNSCRAMBLE THE 

WORD AND ENTER" 
190 PRINT "THE CORRECT SPELLING 
TO RECEIVE POINTS."! PRINT 
210 PRINT : PRINT "GOOD LUCK." 

S PRINT 
220 B*(1)«"CSPACE 53VCSPACE 23NN" 
230 B*(2)«"CSPACE 53CRVSQN3CBLK3 

CYEL3 CBLK3 r.YEL3CRVSOFF3CBLK3W" 
240 B*<3)»"CSPACE 33CRVSON3CBLK3 

CYEL3 CBLK3 CYEL3 CBLK3 CYEL3 

CRVS0FF3" 
250 B*<4)*"CBLK:CSPACE 23<CRVSON3 

CBLK3 CYEL3 CBLK3 CYEL3 CBLK3 
C YEL3 CRVS0FF3 CBLK3*" 
260 B*(5)«"CBLK3CSPACE 63;;" 
270 D**" C HOME 3 C DOWN 83" 

:P*»" CRIGHT 343" 
280 FOR X«l TO W: READ W$(X)s NEXT 
290 PRINT : PRINT "HIT ANY KEY TO 

START " 
300 GET Q$: IF Q**"" THEN 300 
310 T«0:S«0 
320 FOR X-l TO 8 
330 A* INT < RND <8)*W)+1:W$~W*<A> 

xS*="" 
340 L= LEN <W#): FOR Y«l TO L:S(Y)*0 

s NEXT Y 
350 FOR Y«l TO LEN <W*) 
360 K» INT ( RND <3)*L)+1 

: IF S<K)»1 THEN 360 
370 S#*S*+ MID* <W*,K,1):S<K)*1 

: NEXT Y 
380 IF S*»W* THEN 340 
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Alteration— Change or expand the vocabulary 
to fit the user by adding more DATA 
statements after line 600. Change W in line 110 
to match the number of words in the 
program's vocabulary. 



390 
400 

410 



420 
430 

440 
450 
460 
470 

480 



490 

500 
510 
520 
530 
540 

550 

560 

570 

580 
590 
600 



PRINT "CCLR3W0RD #"X M SCORE="S 

F=l: FOR Y=l TO 28 

:B*= LEFT* <P*,Y) 

IF LEN <B*)>17 AND F<L+1 THEN 

PRINT D*;B*;"CDOWN 33CLEFT 23" 

MID* <S*,F,1):F*F+1 

PRINT D* 

FOR Z«l TO 5: PRINT B*;B*<Z) 

: NEXT Z 

FOR T*l TO 49: NEXT T f Y 

PRINT D*; 

PRINT D*;"CDOWN 61" 

INPUT "ENTER CORRECT SPELLING" ;C* 

s PRINT 

IF C*»W* THEN PRINT TAB< 13)" 

CRVS0N3THAT IS CORRECT! ":S=S+ 125 

: GOTO 510 

PRINT TAB< 10) "CRVS0N3 WRONG, 

IT WAS "W*"." 
FOR T«l TO 1000: NEXT T 
FOR T*l TO 2000: NEXT T 
NEXT X 

PRINT 

"YOU WIN 



PRINT "CCLR3" 
IF S>900 THEN PRINT 
THE SPELLING BEE!" 



GOTO 580 



IF 5>800 THEN PRINT "VERY WELL 

DONE.": GOTO 580 
IF S>700 THEN PRINT "NOT BAD." 
: GOTO 580 

PRINT "YOU NEED PRACTICE." 
PRINT : INPUT "PLAY AGAIN" ;Q* 
IF LEFT* (Q*,1)«"Y" THEN 290 
DATA THAT, THEIR, HOUSE, BO AT, 
PEACE , DRAGON , ORANGE , GAME , LOVE , 
HOPE 
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Speed Reading 



A fundamental principle of speed reading is that we retain more if we read words in phrases, 
rather than one at a time. This program helps develop that skill. It flashes phrases quickly then tests 
retention of the information with true/false questions. 

Two players are needed. When prompted by the computer, player 1 types in five statements and 
five related true/false questions along with the answer. Then player 2 decides on the time duration 
he'll see each phrase. Time can be as short as .02 seconds. After the phrases are flashed, player 2 is 
tested with the questions. Score is based on correct answers and the time the player had to read 
questions. 

Then the players change roles and player 2 does the speed-reading test. 



Alteration— Change the game into an 
arithmetic flashcard game. Enter math 
problems and answers instead of sentences. 
Change appropriate PRINT statements if you 
do this. 



100 REM SPEED READING 
110 Q*5: DIM P*<2,Q> ,Q*<2,Q> ,A*(2,Q> 
120 POKE 53281,6: PRINT "CCLR3CWHITE3" 
130 PRINT TAB( 14) "CRVSQN3SPEED 

READING": PRINT 
140 PRINT "WELCOME TO THE GAME OF 

SPEED AND" 
150 PRINT "CONCENTRATION.": PRINT 
160 PRINT "YOU MUST BE ABLE TO GRASP 

WHOLE PHRASES IN A MOMENT." 
: PRINT 
170 PRINT "AFTER THE PHRASES ARE 

DISPLAYED, THERE" 
180 PRINT "WILL BE QUESTIONS ABOUT 

THE CONTENT." 
190 PRINT "CORRECT ANSWERS UP YOUR 

SCORE " 
200 PRINT "THE MORE DIFFICULT THE 

TIME FACTOR, THE MORE POINTS 

ARE EARNED." 
210 PRINT : PRINT "ONE PLAYER ENTERS 

FIVE PHRASES, FIVE" 
220 PRINT "QUESTIONS, AND THE FIVE 

ANSWERS* " 
230 PRINT "THE SECOND PLAYER ENTERS 

THE TIME" 
240 PRINT "FACTOR BY ENTERING THE 

NUMBER OF" 
250 PRINT "SECONDS FOR WHICH THE 

PHRASES ARECSPACE 73DISPLAYED. " 
260 PRINT : PRINT "HIT ANY KEY FOR 

MORE INSTRUCTIONS." 
270 GET Q*: IF Q*«"" THEN 270 
280 PRINT "CCLR3ALL FIVE PHRASES 

WILL BE SHOWN AND THEN" 
290 PRINT "ALL FIVE QUESTIONS WILL 

BE ASKED.": PRINT 
300 PRINT "THEN THE SECOND PLAYER 

WILL HAVE A TURN." 
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Alteration— Change the game into a 
translation exercise. Use foreign and English 
equivalents instead of sentences. Change 
appropriate PRINT statements if you do this. 



310 PRINT "ALL QUESTIONS WILL BE 

TRUE OR FALSE" 
320 PRINT "QUESTIONS. TRUE WILL BE 

INDICATED BY A" 
330 PRINT "T AND FALSE WILL BE 
INDICATED BY AN F. ": PRINT 
340 PRINT "HERE IS AN EXAMPLE;" 

: PRINT 
350 PRINT "CRVS0N3PHRASE 

:CRVS0FF3 THIS IS A COMPUTER 
GAME.": PRINT 
360 PRINT "CRVS0N3QUESTI0N 

:CRVS0FF3 T OR F": PRINT "THIS 
IS A CARD GAME.": PRINT 
370 PRINT "CRVSON 1 ANSWER 

:CRVS0FF3 F" 
380 PRINT : PRINT "HIT ANY KEY TO 

START. " 
390 GET Q*: IF Q$="" THEN 390 
400 PRINT "CCLR3":P*1 
410 INPUT "PLAYER ONE'S NAME";N*<1> 

: PRINT 
420 INPUT "PLAYER TWO'S NAME";N$<2> 
: PRINT 

MORE- 
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430 PRINT "CCLR3BEGIN NOW M N*(P)"." 
440 FOR X*l TO Q: PRINT 

s PRINT "ENTER PHRASE #"X 
450 PRINT : PRINT "PHRASES MAY NOT 
BE MORE THAN 1 LINE LONG (40 
CHARACTERS) . " 
460 PRINT : INPUT P*(P,X) 
470 IF LEN (P*(P,X))>40 THEN 450 
480 PRINT : PRINT "ENTER QUESTION 

#"X 
490 PRINT : PRINT "QUESTIONS MAY 

NOT BE MORE THAN 1 LINECSPACE 33 

LONG (40 CHARACTERS)." 
500 PRINT : INPUT Q*(P,X) 
510 IF LEN (Q*(P,X))>40 THEN 450 
520 PRINT : PRINT "ENTER ANSWER #"X 
530 PRINT : INPUT A$(P,X) 
540 IF A*(P,XX>"T" AND A*(P,XK>"F" 

THEN PRINT "ANSWER MUST BE T 
OR F. "; GOTO 530 
550 PRINT "CCLR3": NEXT X 
560 K*ls IF P«l THEN K=2 
570 PRINT "OK "N#(K)"."s PRINT 
5S0 W(K)*0:S(K)*0 
590 PRINT "ENTER THE NUMBER OF 

SECONDS EACH PHRASE" 
600 INPUT "WILL BE SHOWN" ;S 

: IF S>10 THEN PRINT "TOO LONG!" 

: GOTO 590 
610 FOR X=l TO Q: PRINT "CCLR3CRVSON3 

PHRASE #"Xs PRINT s PRINT : PRINT 

: PRINT s PRINT P*(P,X) 
620 TI*«"000000" 
630 PRINT "CH0ME3CRIGHT 143 "TI* 

: IF TKS*60 THEN 630 
640 PRINT "CCLR3": FOR T-0 TO 999 

: NEXT T,X 
650 FOR X«l TO 5: PRINT "CCLR3CRVSON3 

QUESTION #CRVS0FF3"X: PRINT 
660 PRINT : PRINT Q$(P,X)s PRINT 
670 INPUT "YOUR ANSWER"; A* 

sA*« LEFT* (A*,l) 
680 IF A*<>"T" AND A*<>"F" THEN PRINT 

"THESE ARE T OR F QUESTIONS." 

s GOTO 670 
690 IF A**A$(P,X) THEN S(K)»S(K)+700-S 

: PRINT "CRVS0N3C0RRECT": GOTO 720 
700 W(K)«W(K)+ls PRINT "CRVS0N3 

INCORRECT": PRINT P*(P,X) 
710 PRINT : PRINT s FOR T*l TO 1000 

: NEXT T 
720 FOR T-0 TO 999s NEXT T,X 
730 IF P«l THEN P-2» GOTO 430 
740 PRINT "CCLR3"s PRINT 
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Speed Reading 



7S0 PRINT N*<i>" SCORE 

: "S ( 1 ) ,5-W ( 1 ) "CORRECT" 
760 PRINT : PRINT 
770 PRINT N$<2>" SCORE 

: "S (2) ,5-W (2) "CORRECT" 
780 IF S(1>>S(2) THEN PRINT N$<1>" 

WINS!" 
790 IF S(2)>S(l) THEN PRINT N*<2)" 
WINS!" 
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Pre-School Counter 



Here's a useful educational game that helps young children learn counting up to 10. It's also 
good for introducing a computer to the child. It's easy to run and play. 

The computer greets the player and then asks him to count the squares displayed. The user 
answers by entering a number. The computer then responds. If the answer is correct, the user is 
rewarded with a smiling face drawn by the computer. If the answer is incorrect, the face's smile 
becomes a frown. The correct answer is then displayed. 

After 10 exercises, the computer gives the user both a raw and a percentage score. 



Alteration— Improve on the smiling face by 
adding eyebrows, hair, ears, etc. Use PRINT 
statements between lines 150 and 260. 



Alteration— Change Q in lines 270 to alter the 
number of questions the user gets. For 
example, C=»0: FOR Q=1 TO 5 gives the 
user 5 tries. 



100 REM PRE-SCHOOL COUNTER 
110 PRINT "CCLR3CWHITE3": PRINT 

: PRINT 
120 A*»"CHOME3CDOWN 103" 

s B**A*+" CDOWN 63 " : D*=A*+" [RIGHT 



173 



130 

140 

150 

160 
170 
180 
190 

200 
210 
220 
230 
240 
250 
260 
270 
280 



290 
300 

310 
320 

330 



M 1 *= " C R VSON 3 diiif C RVSOFF 3 " 
! M2$« " C D0WN3 CQQQV " 
M3**"CRVSON3CSPACE 53CRVSOFF3" 
: M4*»" CD0WN3 CRVSQN3 iiiii CRVSQFF3 H 
M5$*" di i if " 8 M6$»" C DOWN 3 ct SPACE 33 

v" 
PRINT 



TAB( 17) "f u f" 
PRINT TAB( 15) "dCSPACE 
PRINT TAB( 14) "dCSPACE 
PRINT TAB( 14>"f_CSPACE 
QCSPACE 23d" 
PRINT TAB( 13) "dCSPACE 



731" 
931" 
23QCSPACE 



33 



13) "dCSPACE 
13) "dCSPACE 
14) "fCSPACE 
14) "dCSPACE 
15) "dCSPACE 



1131" 

1131" 

1 1 31" 

93d" 

931" 

73f" 



PRINT TAB( 

PRINT TAB< 

PRINT TABC 

PRINT TAB< 

PRINT TAB< 

PRINT TAB< 17) "v i_ c" 

C*0: FOR Q-l TO 10 

FOR X«l TO 3: GOSUB 480: READ T* 

s PRINT A*;"CSPACE 23";T* 

s FOR T»l TO 700s NEXT T 

BQSUB 490i PRINT A*;"CSPACE 123" 

« FOR T«l TO 400x NEXT Ti NEXT X 

PRINT B*;:SQ» INT < RND (8)*10)+1 

: FOR Y»l TO SQt PRINT " CRVS0N3 

CRVS0FF3";x NEXT Y 
PRINT i PRINT t INPUT "CSPACE 33 
M ;A« IF AOSQ THEN 330 
C-C+ls PRINT A*;" CRVSON 3 CORRECT 
CRVS0FF3"! 60SUB 480 
8 FOR T-l TO 20008 NEXT T 
8 SOTO 350 

PRINT A*;" CRVSON 3 INCORRECT 
CRVS0FF3"s BOSUB 480 
8 FOR T»l TO 10008 NEXT T 
s GOSUB 500 
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Pre-School Counter 



340 PRINT A*" THE ANSWER" 

: PRINT " IS "SQ: FOR T*l TO 3500 

: NEXT T 
350 GOSUB 490: PRINT A#;"CSPACE 133" 
360 PRINT A*;"CD0WN3CSPACE 123" 

: PRINT B*"CSPACE 203" 
370 PRINT B*"CDOWN 23CSPACE 153" 
380 FOR T»l TO 1000: NEXT T: RESTORE 
390 NEXT Q 
400 PRINT A$j" OUT OF TEN" 

: FOR T»l TO 700: NEXT T 
410 GOSUB 490: FOR T»l TO 400: NEXT T 
420 PRINT A*;"CD0WN3 TRIES, YOU" 

: FOR T»l TO 700: NEXT T 
430 GOSUB 490: FOR T«l TO 400: NEXT T 
440 PRINT A*;"CDOWN 23 GOT "C" 

RIGHT.": FOR T*l TO 700: NEXT T 
450 GOSUB 490: FOR T*l TO 400: NEXT T 
460 PRINT B*: INPUT "PLAY AGAIN" 5 Q* 

: IF LEFT* (Q*,!)"-'^" THEN 100 
470 END 
480 PRINT D*;M1*: PRINT D*;M2$ 

: RETURN 
490 PRINT D*;M3$: 

: RETURN 
500 PRINT D*;M5*: 

: RETURN 
510 PRINT D*;M3*: 

: RETURN 
520 DATA HOW, MANY, SQUARES? 



PRINT D*;M4* 
PRINT D*;M6* 
PRINT D*;M4* 
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Keyboard Shooting Gallery 

This game improves keyboard skills. You're at a carnival shooting gallery containing four animal 
targets. In each target a letter appears for a short time. You score points by typing letters displayed 
in the animals. 

The game has three levels of difficulty, so as you become a better typist, you can make the game 
more challenging. At the expert level, "hunt-and-peck" typists will have trouble scoring well. 



Alteration— The game can also include 
number keys, commas, periods, etc. if you 
change lines 1 10, 120 and 430 as follows: 
110DIMA$(55) 
120FORX=0TO55: 
A$(X)=CHR$(X+35) :NEXT 
430 FOR Y=1 TO 4: 
L$(Y)=A$(INT(RND(8)* 56)): 
PRINT K$(Y); L$(Y): F(Y)=0: NEXT 



100 
110 
120 

130 
140 

150 

160 

170 
180 



190 
200 

210 

220 

230 
240 

250 



260 



270 



280 



290 



300 



310 



320 



REM KEYBOARD SHOOTING GALLERY 

DIM A* (25) 

FOR X=0 TO 25: A* (X)* CHR* (X+65) 

: NEXT X 

PRINT "CCLR3CWHITE3" 

PRINT "WELCOME TO CRV50N 3 KEYBOARD 

CARNIVALCRVS0FF3. " 
PRINT "LETTERS WILL APPEAR AT 

EACH ANIMAL." 
PRINT "YOU WILL HAVE A SHORT 

TIME TO ENTER" 
PRINT "THE SAME LETTERS." 
PRINT : PRINT "SIMPLY TOUCH 

THE CORRECT LETTERS TO GET 

POINTS. " 
PRINT "ENTER 1,2 OR 3;" 
PRINT "1> EASYCSPACE 232) HARD 
CSPACE 233) EXPERT" 
INPUT L: IF L<1 OR L>3 THEN 190 
PRINT s PRINT "HIT ANY KEY TO 

START" 
GET Q*: IF Q*«"" THEN 230 
PRINT M CCLR3" TAB< 12) j "CRVS0N3 
SCORE: CRVSQFF3": PRINT : PRINT 
PRINT "CSPACE 63 CBLK3b CSPACE 23N 
CRVSQN3cCRVS0FF3 CSPACE 103C6RN3 

y_" 

PRINT "CSPACE 73CBLK3CRVSON3 
i_ CRVS0FF3 CSPACE 103CGRN3CRVSON3 

v CSPACE 23cd" 

PRINT "CSPACE 73CBLK3k kCSPACE 103 

CGRN3CRVS0N3vCRVS0FF3 CSPACE 23 

CRVS0N3c" 

PRINT "CSPACE 73CWHITE3CRVSON3DOG 

CRVSQFF3 CSPACE 93CRVSON3TURTLE" 

PRINT : PRINT : PRINT : PRINT 

: PRINT 

PRINT TAB( 9>"CWHITE3WCBRN3ii 

CWHITE3WCSPACE 123CYEL3CRVSON3vc" 

PRINT TAB( 9>" CBRN3CRVSQN3. . 

CRVS0FF3 CSPACE 113CYEL3CRVSON3cv 

CRVS0FF3. >" 

PRINT TAB< 9)"CBRN3CRVSON3dc 
£CRVS0FF3 CSPACE 103CYEL3CRVSON3 

CSPACE 33d" 
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330 



340 

350 

360 

370 

380 
390 
400 
410 
420 
430 



440 
450 
460 

470 

480 
490 
500 
510 
520 




PRINT TAB< 9)" CBRN3CRVSON3 
CSPACE 23 CRVS0FF3 CSPACE 113CYEL3 
CRVS0N3 CSPACE 23CRVSOFF3vk" 
PRINT TABC 9)"CBRN3cCRVSON]ii_ 
CRVS0FF3v" 

PRINT TAB( 9)"CWHITE3CRVSON3BEAR 
CRVS0FF3 CSPACE 93 CRVSON 3 ROOSTER" 
K*U)*"CHOME3CD0WN 43CRIGHT 113" 
:K*<2)*K*U)+"CRIGHT 143" 
K*<3)=K*U) + "CD0WN 103CRIGHT 23" 
:K*<4)=K*<2)+ H CD0WN 103CRIGHT 33" 
IF L=l THEN T=20 
IF L*2 THEN T*10 
IF L=3 THEN T=5 
X«0 
1-0 

FOR Y=l TO 4:L*<Y)=A*< INT < RND 
<8)*26>): PRINT K*(Y);L*(Y> 
:F(Y>=0: NEXT Y 
1*0: C=0 

GET Q*: IF Q** ,,M THEN 450 
FOR Y*l TO 4: IF Q**L*(Y> AND 
F(Y>*0 THEN S=S+10:C*C+1:F<Y>=1 
PRINT "CH0ME3"; TAB( 19) ;S 
: IF C=4 THEN I=T:Y=4 
NEXT Y 

1*1+1: IF KT THEN 450 
X*X+1: IF X<6 THEN 430 
PRINT "CCLR3" 

PRINT TAB< 15>"CRVS0N3GAME OVER." 
s PRINT : PRINT 

PRINT TAB< 16>"CRVS0N3Y0U WIN." 
PRINT : PRINT 

PRINT TAB( 13>"CRVS0N3FINAL 
SCORE: CRVS0FF3"S 
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Translator 



This program is an educational quiz. As is, the program is set up to act as a Spanish-language 
translator. The user picks the number of questions to be asked. An English word is shown and the 
user is asked to type in the Spanish equivalent. 

Correct and incorrect answers are indicated. When the answer is incorrect, the correct word is 
displayed. When all questions have been asked, the computer displays the user's score. 



100 REM TRANSLATOR 

110 DIM E*U0),0$U0> 

120 FOR X»l TO 10s READ E*<X),0*<X> 

8 NEXT X 
130 PRINT "CCLR3" 
140 PRINT "WELCOME TO THE CYBERNETIC 

SCHOOL OFCSPACE 5 3 COMPUTER I ZED 

LANGUAGE. " 
150 PRINT 8 PRINT "I AM AMANDA, 

A SPELLING AND TRANSLATOR C SPACE 23 
PROGRAM ■ " 
160 PRINT s PRINT "I WILL ASSIST 

YOU IN LEARNING SPAN I SHC SPACE 33 
TODAY. "s PRINT 
170 PRINT 8 INPUT "WHAT IS YOUR 

NAME";N*8 PRINT "CCLR3" 
180 PRINT "ALL RIGHT "sNSs'V's PRINT 
190 PRINT "WE SHALL BEGIN BY 

DISCUSSING THE RULES."s PRINT 
200 PRINT "1> WHENEVER YOU ARE ASKED 

FOR AN ANSWER CSPACE 4 3 TYPE 

ONE IN. "8 PRINT 
210 PRINT "2) WHENEVER YOU TYPE 

A RESPONSE, YOU" 
220 PRINT "CSPACE 33MUST ENTER IT 

BY PRESSING CRVSON 3 RETURN 
CRVS0FF3."s PRINT 
230 PRINT "3> I WILL TELL YOU TO 

GIVE THE CORRECT CSPACE 53SPANISH 

FOR A WORD. TYPE" 
240 PRINT "CSPACE 33 IN YOUR ANSWER 

AND PRESS CRVSON3RETURNCRVSOFF3 
,"s PRINT 
250 PRINT "CSPACE 33WHEN THE GAME 

IS OVER I WILL TELL" 
260 PRINT "CSPACE 33HQW WELL YOU 

DID OVERALL. "8 PRINT 8 PRINT 
270 INPUT "HOW MANY QUESTIONS SHALL 

I ASK Y0U"8Q 
280 S«Os FOR C»l TO Qs PRINT "CCLR3" 

8 PRINT "QUESTION #"C 
290 X» INT < RND <8)*10)+1 

8 PRINT "GIVE THE CORRECT SPANISH 

FORI "E*<X> 
300 PRINT s INPUT A* 



114 



Translator 



Alteration— Enlarge the computer's 
vocabulary by adding more DATA statements 
after line 420. Each English word must be 
followed by a comma and its foreign 
translation. You will also need to change lines 
110 and 120 to accommodate the larger list. 
For example, if you have 50 words, change the 
DIM statements in line 110 to DIM E$(50), 
O$(50). Change the maximum value of X in 
line 120 to that same number of words: FOR 
X=1 TO 50. It is possible to add several 
thousand words to a Commodore 64. 

Alteration— Change the Spanish to any other 
language using the Roman alphabet. Change 
the vocabulary in lines 410-420. 



310 IF A**0*<X> THEN S«S+i 

s PRINT "CORRECT": GOTO 330 
320 PRINT "INCORRECT. THEN CORRECT 
TRANSLATION IS: CSPACE 21"0*<X> 
330 PRINT : PRINT "PRESS CRVSONJ 

RETURNCRVSOFF3 FOR NEXT 

QUESTION." 
340 GET Q*: IF Q*«»" THEN 340 
350 NEXT C 
360 PRINT " CCLR3 "N*" , " 

: PRINT " OUT OF "Q" QUEST IONS 
YOU HAD-S'-RIGHT: " 
370 PRINT INT <S#100/Q+. 5) "PERCENT. " 

: PRINT 
380 INPUT "WOULD YOU LIKE TO PLAY 

AGAIN" J Q* 
390 IF LEFT* <Q*,1>« M Y" THEN PRINT " 

CCLR3": GOTO 270 
400 PRINT s PRINT "THANKS FOR 

PLAYING!" 
410 DATA TO DO,HACER,TO TALK,HABLAR, 

TO PUT,PONER,TO EAT, COMER 
420 DATA DOOR, PUERTA, MOUTH, BOCA, COW, 

VACA , FORK , TENEDOR , SPOON , CUCHARA , 

PEACE, PAZ 
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UNDERSTANDING PROGRAM PRINTOUTS 

The program lines in this book are actual computer printouts of the working games. To 
make the lines easier for you to copy, a special notation system is used for graphics 
characters, color and cursor keys. 

An underlined, upper-case letter means that you should hold down the SHIFT key 
while entering that letter. For example, if you see Z, shift while entering Z. A diamond will 
appear on the screen. An underlined, lower-case letter indicates that you should hold 
down the Commodore key (e) while entering that letter. 

Some keys (+, -, £, @, *) will be underlined twice if the Commodore key (c*) is to be 
held down; underlined once if the SHIFT key is to be held down. 

When you see a word in brackets, it indicates using special control keys. For example, 
[DOWN] means press the cursor-up/down key. [DOWN 7] means press the cursor- 
up/down key seven times. The only exception is with spaces. A single space looks that 
way in the program line. If two or more spaces are required, an expression will be in 
brackets, such as [SPACE 2]. 

The table on the next page lists some more key combinations. For example, if the pro- 
gram shows [WHT] press the CTRL and WHT keys at the same time. 
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KEY-COMBINATION TABLE 


Listing 


Press Key(s) 


[UP] 


SHIFT-CURSOR UP/DOWN 


[DOWN] 


CURSOR UP/DOWN 


[LEFT] 


SHIFT-CURSOR 




LEFT/RIGHT 


[RIGHT] 


CURSOR LEFT/RIGHT 


[HOME] 


CLR HOME 


[CLR] 


SHIFT-CLR HOME 


[RVSON] 


CTRL-RVS ON 


[RVSOFF] 


CTRL-RVS OFF 


[BLK] 


CTRL-BLK 


[WHT] 


CTRL-WHT 


[RED] 


CTRL-RED 


[CYN] 


CTRL-CYN 


[PUR] 


CTRL-PUR 


[GRN] 


CTRL-GRN 


[BLU] 


CTRL-BLU 


[YEL] 


CTRL-YEL 


[ORN] 


CM 


[BRN] 


0=2 


[LT. RED] 


C=3 


[DARK GRAY] 


C=4 


[MED. GRAY] 


C*5 


[LT. GRN] 


C=6 


[LT. BLU] 


C=7 


[LT. GRAY] 


C=8 


[F-11 


f1 


[F-2] 


f2 


[F-3] 


f3 


[F-4] 


f4 


[F-5] 


f5 


[F-6] 


f6 


[F-7] 


f7 


[F-8] 


f8 


[POUND] 


£ 
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7.321654881 
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Great Games You Can Program! 




Create 35 amazing games for your Commodore 64. 
Simply type the complete program listing into your 
computer and start playing. Games include color, 
graphics, sound, instructions to players, and scoring. 

Games are written in Commodore 64 BASIC. While 
you're having fun, you'll learn more about programming. 
Each game features suggestions for programming 
variations— change the games to do exactly what you 
want! 

Choose from Arcade, Board and Educational games. 
Your Commodore 64 has never been so much fun! 
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